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Um allen Amiga-Usern, die mit dieser äußerst gelungenen Pro¬ 
grammiersprache arbeiten möchten, so schnell wie möglich eine 
kompakte, ausführliche und gut verständliche Dokumentation 
zukommen zu lassen, haben wir uns überlegt, daß sich hierbei 
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Uwe Litzkendorf, der sicher allen ATARI ST-Besitzern bekannt 
ist, hatte mit seinem GFA-BASIC-Buch zum ATARI ST einen 
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fahrung der strukturierten Programmierung und Betriebssystem¬ 
kenntnis all sein Wissen ein. 

Mit diesem Drei-Autoren-Gespann läßt sich der Inhalt des 
Buches nur ahnen. Es wurden alle Befehle und Funktionen der 
Version 3.0 des Amiga-GFA-BASIC dokumentiert, ausprobiert 
und in Programmbeispielen erklärt. Außerdem bietet der große 
Grundlagenteil am Anfang des Buches eine gute Voraussetzung 
für jeden Einsteiger, der neu in der BASIC-Programmierung ist. 

Wir wünschen jedem Leser dieses Buches viel Erfolg beim 
Lernen dieser neuen Programmiersprache und gutes Gelingen bei 
eigenen Programmen. Viel Spaß! 


Großhansdorf, 

den 6. Dezember 1988 
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Martin Hecht 
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1. Zu diesem Buch 

Das Anliegen dieses Buches ist es, die ca. 360 Befehle und 
Funktionen, die nunmehr vom GFA-V3.0-Interpreter zur Ver¬ 
fügung gestellt werden, nach Schwerpunkten zu ordnen, um so 
das Auffinden der gesuchten Befehlsbeschreibungen nach pro¬ 
blemorientierten Gesichtspunkten zu ermöglichen bzw. zu er¬ 
leichtern. Um Ihnen eine einheitliche Darstellung zu bieten, ha¬ 
ben wir uns an folgende Konventionen gehalten: 

Jede Befehls- bzw. Funktionsbeschreibung beginnt mit einer 
Kopfzeile, die deutlich sichtbar den Befehlsnamen, seine mög¬ 
liche Abkürzung und eine (sehr knappe) Kurzbeschreibung ent¬ 
hält. 

Daran anschließend finden Sie die Syntax, in welcher der Be¬ 
fehl/die Funktion einzusetzen ist. Auf die Beschreibung des Be¬ 
fehls/der Funktion folgt dann gegebenenfalls ein Beispiel oder 
ein Hinweis auf Beispiele an anderer Stelle. 

Innerhalb des Textes wurden für bestimmte Situationen, Vor¬ 
gaben und Optionen jeweils einheitliche Markierungen benutzt. 

< > Wird bei einer Befehlsbeschreibung auf bestimmte 

Tasten verwiesen, wird ihr Name zur besseren 
Kenntlichmachung in spitzen Klammern angegeben 
(z.B. <Shift>, <A>, <Return> oder <Help>). 

| 1 Bei Befehlen, deren Syntax variabel ist, wird ein 

optionaler Befehlsteil in eckigen Klammern ange¬ 
geben. Dies bedeutet, daß die Angabe (z.B. [;,’] oder 
[,Länge]) nur dann im Befehl angegeben werden 
muß, wenn die damit verbundene Option genutzt 
werden soll. 

{ } Viele GFA-BASIC-Befehle können als Abkürzung 

angegeben werden. Der Interpreter erweitert diese 
dann selbständig auf die richtige Form. Sollte zu 
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einem Befehl eine Kurzschreibweise existieren, ist 
diese in der Titelzeile und in der Quick-Referenz 
innerhalb von geschweiften Klammern angegeben 
(z.B. { SYS } oder { RET }). Diese geschweiften 
Klammern werden auch von einigen BASIC-Befehlen 
(Speicherzugriffe wie CHAR{}, BYTE{} etc.) ver¬ 
wendet. Die Verwechslungsgefahr mit den hier 
gemeinten Abkürzungsklammern ist jedoch gering. 

... Soll eine Folge von Anweisungen innerhalb von Be¬ 

fehlen verdeutlicht werden, geschieht dies anhand 
einer Punktlinie (z.B. FOR...NEXT). 

Grundsätzlich sind in der Syntax-Zeile alle Befehlsnamen in 
Großbuchstaben, alle Variablen, Parameter und Strings in nor¬ 
maler Schreibweise dargestellt (z.B. OPENW Handle). 

Bei den Parameterangaben wurden weitgehend einheitliche Be¬ 
zeichnungen verwendet: 


Adresse 

Objektbaumadresse/sonst. Adressen (Adressen werden grund¬ 
sätzlich als 32-Bit-Integer angegeben). 


Anz 

Anzahl 


Arg 

Funktionsargument 


Feld 

Beliebige Feldbezeichnung 


Back=/Var= 

Rückgabedaten bei Funktionen 
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Expr/Expr$ 

Numerischer/alphanumerischer Ausdruck 


Index 

Index von Feldelementen 


Kanal 

Datei-Identifikator 


Nummer 

GFA-Window-Nummer 


Text 

Beliebige Zeichenkette 


Var/Var$ 

Beliebiger Variablenname (nicht mit VAR verwechseln!) 


Xpos/Ypos 

Bildschirmkoordinaten 

Bei Dateiname, Programmname und Ordner ist davon auszu¬ 
gehen, daß ein evtl, erforderlicher Suchpfad in den Namen ein¬ 
zubinden ist. Unter dem Begriff Ausdruck (s.o. Expr) wird hier 
eine beliebige Zusammenstellung von Konstanten, Formeln, 
Texten, Funktionen und Variablen verstanden, die zusammen ein 
Ergebnis liefern. 

z.B. numerischer Ausdruck: 

AX=BX+((234‘2/4.7)*12.95*CX)'2.1317+3Func(AbcX) 

z.B. alphanumerischer Ausdruck: 


A$="Text"+STR$(AX*BX)+SPACE$(10)+aFunc$(Abc$)+B$ 
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In den Beschreibungen von Funktionen wird nicht explizit ange¬ 
geben, daß die Ergebnisse aller (auch selbstdefinierter) Funktio¬ 
nen auf verschiedene Weise ausgewertet werden können, z.B. 
Zuweisung: 

VarX=3Func -> Setbstdefinierte Funkticxi 
Var%=FRE(0) -> BAS IC-Funktion (z.B. FREO) 


z.B. Ausgabe: 

PRINT 3Func -> Selbstdefinierte Funktion 
PRINT FRE(O) -> BASIC-Funktion (z.B. FREO) 


z.B. Abfrage: 

IF 3Func=X -> Selbstdefinierte Funktion 
IF FRE(0)=X -> BASIC-Funktion (z.B. FREO) 


z.B. Dummy-Aufruf: 

VOID 3Func -> Setbstdefinierte Funktion 
VOID FRE(O) -> BASIC-Funktion (z.B. FREO) 


In der Syntaxzeile von Funktionen wird in diesem Buch zur 
Verdeutlichung die Zuweisungsvariante (Var=Funktion()) ver¬ 
wendet. Funktionsaufrufe stehen immer stellvertretend für einen 
Wert oder String, den diese Funktion liefert. Sie können deshalb 
wie jeder beliebige Wert oder String verwendet und eingesetzt 
werden. Alle Funktionen sind im Anhang unter "Alphabetische 
Befehlsliste" mit einem vorangestellten (f) gekennzeichnet. 

Bei allen Dateizugriffen (außer OUT und INP), die die Angabe 
einer Kanal-Nummer erwarten, ist die Angabe des Nummern¬ 
zeichens # optional. In der uns vorliegenden Version V3.0 kann 
bei allen ON...GOSUB-Name-Befehlen der Teil GOSUB 
vernachlässigt werden. Er wird vom Interpreter selbständig 
hinzugefügt (z.B. wird aus ON BREAK Name dann ON BREAK 
GOSUB Name). 
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2. Der Amiga 

Der MC 68000 von Motorola, der Hauptprozessor der meisten 
neuen "16-Bitter", wie z.B. Apple Mac, ATARI ST, QL, aber 
eben auch unseres Amiga, bietet im Vergleich zu den früheren 
8-Bit-Prozessoren, wie z.B. dem 6502 im C64, eine Vielzahl an 
Maschinenbefehlen, die erst durch die 16-Bit-Datenbreite ver¬ 
wirklicht werden konnten und gleichzeitig die Fähigkeiten und 
Geschwindigkeit eines 8-Megahertz-Takters voll zur Geltung 
brachten. 

Was heißt 8 Megahertz? Hertz ist eine aus der Physik bekannte 
Einheit für Schwingungen pro Sekunde. Fernseher z.B. arbeiten 
mit einer Bildwiederholungsfrequenz von 50 Hertz. D.h. jede 
Bildschirmzeile wird innerhalb einer Sekunde 50mal neu aufge- 
baut. Für unseren Computer bedeutet das, daß ein spezieller 
Schwing-Quartz mit einer Frequenz von 8 Millionen Hertz (8 
Millionen Male in der Sekunde!) schwingt und bei jeder Schwin¬ 
gung ein Schalter-Zustand bearbeitet werden kann. In Kombi¬ 
nation mit 16 Daten- und 24 Adreßleitungen ergibt sich daraus 
eine kaum noch zu erfassende Variabilität. 

Man stelle sich eine riesige Lagerhalle vor, in der Regale mit 
insgesamt ca. 16 Millionen (!) Schubladen untergebracht sind. In 
jeder dieser Schubladen läge eine Information, die bestimmte 
Auskünfte über die Arbeitssituation im Betrieb gibt. Nun soll 
jemand innerhalb kürzester Zeit erfassen, welche Information in 
welcher Schublade liegt und welche Auswirkungen der Inhalt 
dieser Schublade im Zusammenspiel mit vielen verschiedenen 
anderen Schubladeninhalten auf die Organisation des Gesamtbe¬ 
triebes hat. 

Das ist, wenn man unser Gehirn als Vergleich nicht in Betracht 
zieht, unzweifelhaft mit menschlicher Kraft nicht machbar - ein 
Amiga, ob 2000er, 1000er oder 500er kann das. Da er jedoch 
auch analysieren, rechnen und einordnen muß, würde dies länger 
als eine Sekunde dauern. Trotzdem reicht seine Geschwindigkeit 
aus, um z.B. mit dem GFA-Interpreter in weniger als einer 20tel 
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Sekunde eine FOR-NEXT-Schleife mit 1000 Schritten zu 
durchlaufen. Innerhalb eines Schrittes dieser Schleife muß er 
intern hunderte von Einzelschritten abarbeiten, die Richtigkeit 
des Programms in seiner Grammatik überprüfen und die ver¬ 
wendeten Befehle analysieren und zuordnen (interpretieren). 
Wahrhaft eine gewaltige Leistung. War ein 8-Bitter in seinen 
Kombinationsmöglichkeiten noch einigermaßen überschaubar, ist 
ein 16-Bitter real kaum noch zu begreifen. 
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3. Das GFA-BASIC 


Zusammen mit dem Amiga wurde von Anfang an eine Pro¬ 
grammiersprache ausgeliefert. Wo wir diese bei anderen Home- 
Computern fest integriert vorfanden, war dies beim Amiga keine 
Selbstverständlichkeit mehr. Um so erfreuter zeigten sich die 
Gesichter, als sie vom AmigaBASIC hörten. 

Ein wesentlich größerer Befehlsschatz, strukturierte Program¬ 
mierung und Ausnutzung der Libraries kündeten ein neues, be¬ 
quemeres Zeitalter der Programmierung an. Jedoch ein Wer¬ 
mutstropfen blieb bei alledem erhalten: die Geschwindigkeit. Das 
AmigaBASIC vertuschte an keiner Stelle, daß es eine Interpre¬ 
tersprache war, man glaubte teilweise sogar, daß es stolz darauf 
war. 

Sie als Amiga-Besitzer bekommen aber erst jetzt einen Begriff 
von der Qualität Ihres Computers. Frank Ostrowski stellte vor 
ca. zwei Jahren sein erstes GFA-BASIC vor. Es gibt wohl kaum 
andere Programmiersprachen, mit denen auf so atemberaubend 
einfache Weise selbst schwierige Probleme lösbar sind wie in 
GFA-BASIC. Überzeugen Sie sich selbst, denn nun gibt es sie 
auch für den Amiga! 

Wir haben nun einen Interpreter, der das Angebot eines MC 
68000 in einer für viele nutzbaren Sprache zur Verfügung stellt. 
Er tritt damit in eine ernstzunehmende Konkurrenz mit der bis 
heute favorisierten Compilersprache C. Zugegeben, in manchen 
Beziehungen werden C- und Assemblerprogrammierung Vorrang 
behalten. Aber die Gruppe derer, die bereit sind, sich mit der 
komplizierten Compiler- und Assemblertechnik auseinanderzu¬ 
setzen, wird sich mehr und mehr in Grenzen halten, da dieses 
BASIC höchsten Anforderungen mit Sicherheit Genüge tut. 

Wie bei jeder Sprache muß man auch hier erst einmal das ABC 
lernen, um fließend sprechen zu können. D.h., man muß die 
Grundstrukturen, an denen sich die Sprache orientiert, be¬ 
herrschen, um vom Empfänger (in diesem Fall dem Interpreter) 
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richtig verstanden zu werden. Glücklicherweise haben wir es 
hier mit BASIC zu tun, dem ja der Ruf anhängt, ein Tausend¬ 
sassa zu sein, was seine syntaktische Toleranz angeht. 

Das GFA-BASIC zwingt - glücklicherweise - zu einer struktu¬ 
rierten Programmierung. Wer sich z.B. mit den Sprachen C, 
Modula oder Pascal beschäftigt hat, dem werden die Eigenarten 
der strukturierten Programmierung nichts Neues sein. 

In GFA-BASIC wird in jeder Zeile jeweils nur ein Befehl ak¬ 
zeptiert. Außerdem werden die Zeilen vom Interpreter selbsttätig 
in die entsprechende optische Struktur eingeordnet. Es ist eine 
wahre Freude zu sehen, wie sauber und ordentlich ein derart 
durchstrukturiertes Programm hinterher aussieht. Ein weiterer 
wichtiger Aspekt ist aber, daß dadurch bei der Fehlersuche eine 
immens große Zeitersparnis eintritt. Befehlszeilen sind ohne 
Zeichen-Scrolling auf einen Blick erfaßbar. Zusätzlich wird 
durch das Einrücken der Zeilen sofort erkennbar, z.B. welches 
ENDIF zu welchem IF oder welches NEXT zu welchem FOR 
gehört. 

Der vielleicht wichtigste Vorteil der Struktur-Programmierung 
ist aber der, daß beiläufig während der Programmerstellung im¬ 
mer wieder kleine Unterroutinen abfallen, die in sich geschlos¬ 
sen sind und dadurch die Möglichkeit bieten, nach und nach 
eine umfangreiche Bibliothek an Hilfsprogrammen und allgemein 
verwendbaren Prozeduren zusammenzustellen. Das wäre prinzi¬ 
piell in anderen Programmierarten genauso möglich, nur ergibt 
sich hier die Gelegenheit dazu erheblich seltener. Komfortabel 
wird es dann noch, wenn man diesen Prozeduren (wie in GFA- 
BASIC) eine fast beliebig lange Parameterliste übergeben kann. 
Effektiver geht es fast nicht mehr. 

Die V3.0-Version hat gegenüber den früheren Versionen auf 
anderen Computern erhebliche Veränderungen erfahren. Das be¬ 
ginnt bei der Variablen-Organisation (Einführung von Byte- und 
Word-Variablen), geht über einen phantastischen Programm- 
Editor und endet nach vielen weiteren Änderungen bei wesent¬ 
lich strafferen Strukturierungsmöglichkeiten (SELECT-CASE, 
ELSE IF, FUNCTION etc.). 
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Aus diesen neuen Möglichkeiten ergibt sich eine erhebliche 
Einsparung an Programmtext und zudem eine ebenso erhebliche 
Steigerung der Geschwindigkeit im Programmlauf sowie bei der 
Programm-Entwicklung. Einige neue Befehle ermöglichen eine 
derart einfache Programmierung auch komplizierter Vorgänge, 
daß es fast zu einem Kinderspiel wird. 

Wahrscheinlich das erste, was Ihnen am neuen GFA-BASIC 
auffallen wird, ist die rasante Geschwindigkeit des Editors beim 
Suchen, Ersetzen, Blättern und Scrollen. Diesen Super-Editor 
kann man schon fast als komplette Textverarbeitung bezeichnen. 
Ein Suchvorgang durch den gesamten Text dauerte im Durch¬ 
schnitt nicht länger als ein bis zwei Sekunden(!). 

Last but not least sollen hier noch die neuen Editor-Funktionen 
genannt werden, wovon vor allem <ControlxU> (die zuletzt 
durch <Controlxy> gelöschte Zeile restaurieren), die Funk- 
tionstasten-Belegung, die interne Zeilennumerierung und der 
History-Zeilenspeicher im Direktmodus hervorzuheben sind. 

Man mag mir Vorhalten, daß ich nichts anderes kenne als das 
GFA-BASIC, was vielleicht zum Teil stimmt, aber nach allem, 
was ich kenne, ist das V3.0-GFA-BASIC mitsamt seinem Editor 
die beste Programmiersprache, die es es für den Amiga zu 
kaufen gibt. Ich bin jedenfalls restlos begeistert, und ich nehme 
an, daß es den meisten von Ihnen ganz genauso gehen wird. 


3.1 Noch einige Anmerkungen zum GFA-BASIC 

Zur Erstellung dieses Buches lag uns zuerst eine Testversion vor. 
Diese besaß schon die Versionsnummer 3.0, hatte aber wesent¬ 
lich weniger Befehle als die Version 3.0 auf dem Atari ST. 

Auch bei weiteren UpDates der Testversion wurden es nicht un¬ 
bedingt so viele Befehle, wie auf dem Atari vorhanden sind. 
Gleichermaßen traten Probleme bei der Funktion dieser Befehle 
auf. So waren zwar viele Befehle vom Vorbild übernommen, 
hatten aber trotz angegebener Dokumentation nicht den Funk¬ 
tionsumfang, wie er beschrieben war. 
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Auf der anderen Seite gab es auch nicht dokumentierte Befehle, 
die trotzdem implementiert waren, oder vom Interpreter akzep¬ 
tierte Befehle, die aber nicht bearbeitet wurden. 

Sie sehen schon, daß es nicht ganz einfach für uns war, das 
GFA-BASIC auf dem Amiga zu dokumentieren. Wir haben 
trotzdem versucht, mit vielen Tricks und Kniffen eine umfang¬ 
reiche Beschreibung dieser Programmiersprache herauszugeben. 
Wir hoffen weiterhin, daß bei Ihrer GFA-BASIC-Version die 
von uns entdeckten Fehler nicht mehr vorhanden sind, so daß 
Sie ohne solche Sorgen leben können. 


3.2 Zum GFA-Menü 

In letzter Minute vor Erscheinen der endgültigen Version wurde 
das erste Menü ins GFA-BASIC eingefügt. Der Editor kann jetzt 
also mit einigen Kommandos auch über ein Intuition-Menü und 
den damit verbundenen Komfort bedient werden. Dieses Menü 
erreichen Sie, wenn Sie die rechte Maustaste gedrückt halten und 
mit dem Mauszeiger auf die Titelleiste des Editor-Screen fahren. 
Es erscheinen 9 Punkte, die hier schnell erklärt werden sollen: 


LOAD 

Lädt ein GFA-BASIC-Programm. Diese Funktion entspricht dem 
Punkt LOAD der Leiste in der unteren Zeile und kann auch mit 
Fl oder <Amiga>-L aufgerufen werden. 


SAVE 

Speichert ein BASIC-Programm im GFA-Format. Die Funktion 
gleicht der aus der oberen Zeile der Leiste und kann auch mit 
<Shift>-Fl aufgerufen werden. 
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NEUE NAMEN 

Diese Funktion schaltet die Abfrage nach neuen Variabien- 
Namen ein oder aus. Sie erhalten sonst bei Verwendung eines 
neuen Variabien-Namens eine Request-Box, in der nach der 
Richtigkeit gefragt wird. Dies ist nun unterbunden. 

Allerdings gilt diese Einstellung nicht für den Direktmodus, da 
sonst alle alten Variablen-Werte gelöscht würden. 


RUN 

Startet ein Programm. Auch aufzurufen mit <Amiga-R> oder 
<Shif t>-F10. 


TASKPRI 0 

Setzt die Priorität des GFA-BASIC-Tasks auf 0. Damit wird 
anderen gleichzeitig laufenden Programmen mehr Zeit des Pro¬ 
zessors zugeteilt. GFA-BASIC wird dadurch langsamer! Diese 
Funktion kann auch mit <Amiga>-0 aufgerufen werden. 


TASKPRI I 

Setzt die Priorität des GFA-BASIC-Tasks auf 1, womit der 
Interpreter mehr Rechenzeit als andere Programme vom 68000er 
erhält. So werden die gesamte Programm-Bedienung, der Editor 
und die Berechnungen beschleunigt. Allerdings werden andere 
Programm dadurch wesentlich langsamer! Diese Funktion kann 
auch mit <Amiga>-l aufgerufen werden. 


CLEANUP 

Hiermit kann man ohne große Mühe die Sound-Ausgabe, die 
BOB-Verwaltung und Bewegung und das Sprite-Handling stop¬ 
pen. Man erspart sich dadurch das Eingeben vieler unterschied¬ 
licher Befehle. Dieser Menüpunkt kann auch mit <Amiga>-C 
aufgerufen werden. 
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NEWCLI 

Startet ein neues CLI auf dem Workbench-Screen. Sie müssen so 
nicht erst das CLI-Icon auf den Bildschirm holen. Allerdings 
muß die Shell dann noch von Hand gestartet werden (Version 
1.3 der Workbench). 


3.3 Der RUN-Only-Interpreter 

Zum GFA-BASIC-Paket gibt es einen RUN-Only-Interpreter, 
der es ermöglicht, Ihr GFA-BASIC-Programm ohne den eigent¬ 
lichen Interpreter mit Editor laufen zu lassen. 

Dies macht es möglich, ein Programm an Freunde oder Bekannte 
weiterzugeben, die nicht im Besitz des Interpreters sind. Es wird 
Ihnen von GFA gestattet, diesen RUN-Only-Interpreter beliebig 
weiterzugeben. So ist es sogar möglich, kommerzielle Programme 
im GFA-BASIC zu schreiben und diese zu verkaufen, wenn Sie 
den RUN-Only-Interpreter kostenlos dazu weitergeben. 

Nach dem Starten von der Workbench erscheint die Auswahl- 
Box, von der aus Sie den File-Namen des Programms bestimmen 
können, das gestartet werden soll. Oder aber Sie geben im CLI 
den File-Namen hinter dem Programm-Aufruf an. 
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4. Basis-BASIC 


Es ist unmöglich, in einem einzelnen Buch, das die Program¬ 
mierung in einer bestimmten Programmiersprache erläutern soll, 
allen Ansprüchen gerecht zu werden. Richtet es sich nach den 
Interessen der Anfänger, wird es für den Fortgeschrittenen und 
Profi langweilig. Richtet es sich dagegen nach den Bedürfnissen 
der Könner, versteht der Anfänger nur noch wenig. Also muß 
versucht werden, einen Kompromiß zu finden. Dieser besteht 
darin, dem Anfänger die Grundlagen der Programmierung 
nahezubringen, ohne in Banalität zu versinken, und komplexe 
Sachinhalte für Fortgeschrittene darzustellen, ohne in Fach- 
Chinesisch abzudriften. 

Um nun Anfängern die Möglichkeit zu eröffnen, mit GFA- 
BASIC den Grundstein zu ihrer Programmierer-Karriere zu 
legen, will ich hier die wesentlichen Grundlagen dieser Pro¬ 
grammiersprache erläutern und zusätzlich eine Einführung in die 
Computer-Linguistik anbieten. 

Wer also der Meinung ist, er sei über den Aufbau eines Com¬ 
puters, über Boolesche Logik, Zahlensysteme etc. bereits aus¬ 
reichend informiert, kann dieses Kapitel vernachlässigen. 

Den Einsteigern möchte ich allerdings empfehlen, sich hier mit 
dem nötigsten Rüstzeug auszustatten, denn ohne gewisse Grund¬ 
kenntnisse kann man auch den bedienungsfreundlichsten Com¬ 
puter nicht zu sinnvollen Betätigungen bewegen. 

Dann wollen wir jetzt einsteigen: Ein Computer ist in erster 
Linie ein äußerst dummer Zeitgenosse. Ob sich das in Zukunft 
mit Bio- und Megachips, Transputern, Supraleitern u.ä. wesent¬ 
lich ändern wird, bleibt abzuwarten. Da Computer der gegen¬ 
wärtigen Generation nur die beiden Zahlen 0 und 1 unter¬ 
scheiden können, muß man manchmal gewaltige Anstrengungen 
unternehmen, um ihre Aufmerksamkeit zu erregen. 
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Unter normalen Umständen begegnet ein Laie einem Computer 
mit Skepsis, aber auch mit einer unleugbaren Faszination. Diese 
Faszination ist der Grund dafür, daß man manchmal vor lauter 
Ehrfurcht den eigentlich simplen Charakter eines solchen Geräts 
nicht erkennt. Das einzig Bewundernswerte daran ist die mikro¬ 
skopische Größe der Schaltungen, die fast unfaßbare Geschwin¬ 
digkeit, mit der die verschiedenen Operationen durchgeführt 
werden, und die genial geflochtenen Leiterbahnen auf einem 
fingernagelgroßen Mikrochip. 

In jedem Fall sind es kreative und mit einer äußerst hohen ana¬ 
lytischen Intelligenz begabte Menschen, die so ein Ding gebaut 
haben. Wenn also Ehrfurcht, dann vor den Informatikern, Tech¬ 
nikern und Physikern, nicht vor dem Gerät. Wenn Sie nämlich 
die Stromzufuhr zu den Computer-Prozessoren unterbrechen, ist 
Ihnen das Gerät hilflos ausgeliefert. Es ist in gewisser Weise so¬ 
gar sehr wichtig, sich dieses zu vergegenwärtigen, da die 
Chance, kreativ und produktiv mit einem Computer zu arbeiten, 
steigt, je mehr man seine Ehrfurcht ihm gegenüber abbaut. 

Nach dieser Einleitung nun zur Technik. Es ist hier nicht mög¬ 
lich, in die tieferen Sphären der Computertechnik einzusteigen. 
Deshalb will ich mich damit begnügen. Ihnen einige Begriffe zu 
erläutern. Dabei werde ich mich auf solche Begriffe beschrän¬ 
ken, die Ihnen in Ihrer Programmierer-Karriere oft begegnen 
werden und deren Kenntnis zum Verständnis des Computer- 
Jargons hilfreich ist. 


4.1 Computer-ABC 

Jeder Computer verfügt über eine zentrale Arbeitseinheit (CPU 
= Central Processing Unit). Diese ist das eigentliche Herz des 
Computers. Es handelt sich dabei um einen Prozessor (Arbeits- 
Chip), der von den o.g. Informatikern so programmiert wurde, 
daß er selbständig in der Lage ist, eingehende Befehle zu erken¬ 
nen und diesen entsprechend zu reagieren. Befehle werden im 
allgemeinen über die Tastatur eingegeben oder als Programm 
eingelesen. Im Amiga sind dazu die verschiedenen Schnittstellen 
durch ein Bündel von Leitungen mit der CPU verbunden. Dieses 
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Leitungsbündel nennt man Bus. Es gibt Daten- ,Adreß- und 
Steuerbusse. Während uns der Steuerbus hier nicht näher in¬ 
teressieren soll, sind die Daten- und Adreßbusse doch von er¬ 
heblicher Bedeutung. 

Der Datenbus wird dazu verwendet, Daten (Integer-Binär-Werte) 
zwischen den Einheiten auszutauschen. So ist es möglich, z.B. 
einen Wert über die Tastatur an die CPU zu senden, die diesen 
dann entsprechend der gewünschten Operation verarbeitet und 
ggf. im Speicher ablegt oder (was eigentlich dasselbe ist) auf 
dem Monitor ausgibt. Unter dem Speicher versteht man eine 
Ansammlung von Speicherchips, die ebenfalls durch Busse mit 
der CPU in Verbindung stehen. Hier kommt der Adreßbus ins 
Spiel. Um den gesamten Speicher organisieren zu können, wird 
jedem einzelnen Speicher-Byte (8-Bit-Speicherplatz) eine eigene 
Adresse zugewiesen. Durch Angabe dieser Adresse ist es also 
möglich, auf jedes einzelne Byte des Speichers zuzugreifen. Zu 
den Bits und Bytes kommen wir später. Zunächst sehen wir uns 
noch einmal die Übertragungsmöglichkeiten per Bus an. 

Wie gesagt, der Bus ist ein Bündel an Leitungen. Die CPU ver¬ 
fügt über eine Vielzahl von Pins (Steckfüße des Chips), von 
denen beim Amiga genau 16 für Daten-Codes und 23 für 
Adreß-Codes verwendet werden. Diese Pins sind direkt mit den 
Bussen verbunden. Da in der Digital-Technik eine Stromleitung 
nur zwei Zustände annehmen kann (an und aus), ist es nicht 
möglich, über eine einzelne Busleitung andere Werte als 0 (für 
aus) und 1 (für an) zu senden. 

Wenn man sich nun eine Stromleitung vorstellt, in die über einen 
Schalter Strom eingeleitet wird, und man faßt das freie Ende 
dieser Leitung an, dann bekommt man einen Schlag. Genauso 
geht es den Chips, die die jeweilige Information aufzunehmen 
haben. Aufgrund dieses elektrischen Impulses "weiß" nun der 
Empfänger, daß ihm etwas Bestimmtes übermittelt werden soll. 
Er ist darauf programmiert, entsprechend der eintreffenden In¬ 
formationen entweder einen bestimmten Prozeß auszulösen, 
auszuführen oder die Information einfach nur zu behalten 
(speichern). Aber was kann man schon mit einer einzigen 
Leitung anfangen, die entweder die Information "Ja" (l=an) oder 
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"Nein" (0=aus) übermitteln kann. Ein Gesprächspartner, der auf 
die Dauer nur Ja oder Nein sagt, wird schnell langweilig. Man 
möchte konkretere Auskünfte. 


4.2 Bits und Bytes 

Dazu benötigen wir mehrere Informationseinheiten (Bit = engl. 
Abk. für Binary Digit), durch deren Kombination eine Vielfalt 
an unterschiedlichsten Zuständen ausgedrückt werden kann. 

Nimmt man nun zwei Stromleitungen, die unabhängig von¬ 
einander an- oder ausgeschaltet werden, sind schon vier ver¬ 
schiedene Kombinationen denkbar. Stellen wir jede stromfüh¬ 
rende Leitung als 1 und jede "leere" Leitung als 0 dar, dann 
sieht das so aus: 

00 = Beide Leitungen führen keinen Strom 

10 = Leitung 1 = An/Leitung 2 = Aus 

01 = Leitung 1 = Aus/Leitung 2 = An 

11 = Beide Leitungen an 

Dies ist also schon ein kleiner Schritt mehr in Richtung Kom¬ 
munikation. Um es noch deutlicher zu machen, wird das Spiel 
mit vier Stromleitungen wiederholt: 

0000 = Alle Leitungen aus 

1000 = Leitung 1 an/2, 3 und 4 aus 

0100 = Leitung 2 an/1, 3 und 4 aus 

0010 = Leitung 3 an/1, 2 und 4 aus 

0001 = Leitung 4 an/1, 2 und 3 aus 

1100 = Leitung 1 und 2 an /3 und 4 aus 

0110 = Leitung 2 und 3 an /I und 4 aus 

0011 = Leitung 3 und 4 an /I und 2 aus 

1001 = Leitung 1 und 4 an /2 und 3 aus 

1010 = Leitung 1 und 3 an /2 und 4 aus 

0101 = Leitung 2 und 4 an /I und 3 aus 

1110 = Leitung 1, 2 und 3 an/4 aus 

0111 = Leitung 2, 3 und 4 an/1 aus 

1011 = Leitung 1, 3 und 4 an/2 aus 

1101 = Leitung 1, 2 und 4 an/3 aus 

1111 = Alle Leitungen an 
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Mit jeder weiteren Leitung verdoppelt sich die Anzahl der Dar¬ 
stellungsmöglichkeiten: 

Alle Leitungen aus = 0 


1. 

Leitung 

an 

= 

2*0 

= 

1 

2. 

N 

an 

= 

2*1 

= 

2 

3. 

n 

an 

= 

2*2 

= 

4 

4. 

M 

an 

= 

2*3 

= 

8 

5. 

n 

an 

= 

2*4 

= 

16 

6. 

N 

an 

= 

2*5 

= 

32 

7. 

M 

an 

= 

2*6 

= 

64 

8. 

n 

an 

= 

2*7 

= 

128 


Summe aller Möglichkeiten, 
die mit einem BYTE (= 8 BIT) 

dargeetellt werden können = 256 inkl. Null) 

Ich habe diese Liste bewußt mit der Potenz 7 enden lassen, da 
diese 8 Leitungen mit ihren 256 verschiedenen Aussagemöglich¬ 
keiten eine Grundeinheit in der Computerlogik darstellen. Diese 
Einheit wird Byte genannt. Ein Computer mit einem Arbeits¬ 
speicher von 1 Million Byte kann also 1 Million Male unab¬ 
hängig voneinander einen solchen Informationsblock (Byte) von 
je 8 Bit aufnehmen. 

Wie Ihnen vielleicht schon bekannt ist, verfügt der Amiga über 
256 verschiedene Schriftzeichen. Nach den letzten Ausführungen 
wissen Sie, daß diese Zahl kein Zufall ist. Warum nun als erste 
Potenz eine Null gewählt wird, das ist eine mathematische Fest¬ 
legung. Jeder Wert, der mit dem Wert Null potenziert wird, er¬ 
gibt den Wert Eins. Diese Eins ist in jedem Zahlensystem die 
kleinste Einheit. 


4.3 Binär-Arithmetik 

Der Trick an der Sache ist der, daß jeder Zustand, der sich mit 
diesen 8 Leitungen darstellen läßt, auch mit einem Wert belegt 
werden kann. Es wurde nun ein Zahlensystem entwickelt, das 
ausschließlich die Zustände "An" und "Aus" zur Zahlendarstel¬ 
lung verwendet. 
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Dabei geht man mathematisch genauso vor, wie wir es von 
unserem Dezimalsystem her kennen. Der einzige Unterschied ist 
der, daß als Basis zur Potenz nicht der Wert 10, sondern der 
Wert 2 genommen wird. Die niedrigste Stelle einer Binärzahl (Bi 
= griech: zwei) steht ebenso wie in einer Dezimalzahl rechts und 
die höchste Stelle links. 

Als Beispiel nehmen wir ein beliebiges Byte: 





01011101 

= 

93 


(10 

hoch 

0) 

* 3 

= 

3 

+ 

(10 

hoch 

1) 

* 9 

= 

90 




Ergebnis 

= 

93 


(2 

hoch 

0) 

* 1 

_ 

1 

+ 

(2 

hoch 

1) 

* 0 

= 

0 

♦ 

(2 

hoch 

2) 

* 1 

= 

4 

♦ 

(2 

hoch 

3) 

* 1 

= 

8 

♦ 

(2 

hoch 

4) 

* 1 

= 

16 

♦ 

(2 

hoch 

5) 

* 0 

= 

0 

+ 

(2 

hoch 

6) 

* 1 

= 

64 

♦ 

(2 

hoch 

7) 

* 0 

= 

0 




Ergebnis 

= 

93 


4.4 Das Hexadezimal-System 

Wozu braucht man nun noch das Hexadezimalsystem? Wollte 
man diese Bytes als Binärzahl darstellen, müßte man dazu 
jedesmal eine Zeichenkette von 8 Einsen und Nullen schreiben. 
Um diese Zahlendarstellung zu vereinfachen, hat man sich die 
Hexadezimalzahlen ausgedacht. 

Dieses Zahlensystem hat alle Eigenschaften der anderen Systeme. 
Der einzige Unterschied ist, daß als Basis zu den Potenzen weder 
die 2 noch die 10 genommen wird, sondern der Wert 16. Das hat 
den Vorteil, daß sich die Hälfte eines Bytes (auch Tetrade oder 
Nibble genannt), also 4 Bit (maximal darstellbarer Wert = 15), 
mit einer einzigen Hexadezimalziffer darstellen läßt. Da sich je¬ 
doch mit den uns üblicherweise bekannten Zahlen keine größere 
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Zahl als 9 einstellig schreiben läßt, mußten für die Zahlen 10 bis 
15 Buchstaben gewählt werden. Der Zahl 10 wird der Buchstabe 
"A" zugeordnet, der Zahl 11 das "B", 12 = "C", 13 = "D\ 14 = 
"E", und die 15 erhält den Buchstaben "P. 

Somit läßt sich also die größte Zahl, die ein Amiga im GFA- 
BASIC verarbeiten kann, nämlich 2 A 31-1, mit nur 8 Ziffern 
darstellen (7FFFFFFF). Im allgemeinen werden Hexadezimal¬ 
zahlen gekennzeichnet, indem ihnen ein "$" (Dollar, z.B. $1AF7) 
vorangestellt wird. Das GFA-BASIC handhabt dieses jedoch 
anders. Hier erhalten Zahlen im Hexa-Format das Kürzel "&H" 
(z.B. &H1AF7). Hexzahlen haben in erster Linie den Vorteil der 
Zeit- und Platzersparnis. Weil unser GFA-BASIC aber "inter¬ 
national" ist, versteht es auch die "$"-Schreibweise und formt 
diese in seine richtige Syntax um. 

Siehe hierzu auch unter "BINS, HEXS, OCT$". 


4.5 Codes und Opcodes 

Ein Wert kann bei entsprechender Vorgabe stellvertretend als 
numerisches Symbol für ein bestimmtes Wort, Zeichen oder 
einen Befehl interpretiert werden. 

Bei den Schriftzeichen (ASCII-Zeichen = American Standard 
Code for Information Interchange; amerikanischer Standard- 
Code für Informationsaustausch) steht z.B. der Wert 65 für den 
Buchstaben "A", der Wert 66 für "B", der Wert 67 für "C" usw. 
(ASCII-Tabelle siehe Anhang). Angenommen, der Wert 192 
stünde für "Gebe den im folgenden Byte enthaltenen ASCII-Wert 
als Schriftzeichen an Cursor-Position auf dem Bildschirm aus". 
Die Arbeitsweise sieht dann vereinfacht so aus, daß der Amiga 
weiß, wenn er den Wert 192 empfängt, soll er das ASCII- 
Zeichen auf dem Bildschirm ausgeben, das dem auf den Befehl 
folgenden Byte-Wert entspricht. 


Der Befehl würde dann so aussehen: 
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Dezimal : 192 66 

Binär : 11000000 10000010 

Hexadezimal: CO 42 

Es würde also das Zeichen "B" auf dem Bildschirm ausgegeben 
werden. Immer dann, wenn wir auf Werte stoßen, die eine 
Initialisierungsfunktion haben, also als Auslöser für bestimmte 
Prozesse dienen, haben wir es mit Opcodes (Operation-Codes) zu 
tun. Solche Opcodes sind nichts anderes als ein Befehl, der sym¬ 
bolisch durch eine Zahl repräsentiert wird. Alles, was den Pro¬ 
zessor interessiert, sind Zahlen, die ihm in verschiedenen For¬ 
maten als ’Bit-Häppchen’ serviert werden. 

Bei der Betriebssystem-Programmierung wurden also ver¬ 
schiedene Funktionsabläufe vordefiniert, die nun z.B. von einem 
Interpreter anhand solcher Opcodes aufgerufen werden können. 
Wenn Sie also in BASIC die Zeile 

PRINT "B" 

eingeben, wird Ihre Eingabe vom Interpreter auf die oben be¬ 
schriebene Weise in das Binärformat gewandelt und dem Be¬ 
triebssystem zur Weiterverarbeitung übergeben. Genausogut 
könnte man 

PRINT CHR$(66) ! (66 = ASCII-Uert für "B") 

schreiben, nur daß das etwas umständlicher wäre. 


4.6 Words und Longwords 

Um einen Sprung von den Bytes zu den Words zu machen, 
braucht man keinen großen Anlauf. Als Word wird eine Infor¬ 
mationseinheit bezeichnet, die sich statt aus 8 Bit (1 Byte) aus 16 
Bit zusammensetzt. Es können nicht nur 256 verschiedene, son¬ 
dern 65536 (0+2 A 0+2 A l+2 A 2+2 A 3+2 A 4+2 A 5+2 A 6+2 A 7+2 A 8+2 A 9+2 A 
10+2 A 11+2 A 12+2 A 13+2 A 14+2 A 15) verschiedene Zustände darge¬ 
stellt werden. 
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Wie erwähnt, arbeitet der 68000er - die Amiga-CPU - mit einer 
Datenbreite von 16 Bit. Es können also problemlos Werte im 
Bereich von 0-65535 (0 bis 2 A 16-1) von ihm gelesen, verarbeitet 
und zurückgegeben werden. Doch es gibt noch eine Steigerung. 
Wenn man nur Werte bis 65535 ausdrücken könnte, könnten 
manche Leute nicht einmal ihre Steuererklärung damit bearbei¬ 
ten. Deshalb ist der 68000er so programmiert, daß er (wenn es 
ihm gesagt wird) zwei 16-Bit-Words direkt nacheinander ver¬ 
arbeitet und dann so vorgeht, als ob es ein 32-Bit-Wert gewesen 
wäre. Von diesen 32 Bits werden in GFA-BASIC allerdings nur 
31 Bits zur Wertedarstellung verwendet. Das letzte (höchste) Bit 
wird zur Kennzeichnung negativer Zahlen verwendet. 

Die Zahlen, die sich damit ausdrücken lassen, dürften fast für 
jede erdenkliche Steuererklärung ausreichen: 

2 hoch 31-1 = 2147483647 

Diese 32-Bit-Breite wird als Longword bezeichnet. Die CPU ist 
so programmiert, daß sie zwischen diesen drei verschiedenen 
Datenbreiten unterscheiden kann. Ihr ist es also egal, in welchem 
Format Daten übergeben werden, solange man sagt, welches 
Format gemeint ist. Bei den BASIC-Befehlen finden Sie deshalb 
auch POKE/PEEK (Byte-Werte schreiben/lesen), DPOKE/ 
DPEEK (Words schreiben/lesen) und LPOKE (Longwords 
schreiben/lesen). 


4.7 Die Speicherorganisation 


RAM 

"Random Access Memory" - Freier Zugriffs-Speicher (der 
Speicherbereich, in den Daten geschrieben und aus dem Daten 
gelesen werden können). 

Das RAM wird noch einmal in Chip-RAM und Fast-RAM 
unterteilt. Dabei ist das Chip-RAM der Bereich, der von allen 
Custom-Chips angesprochen werden kann. Diese Chips unter- 
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stützen den 68000’er bei seiner Arbeit und sind z.B. für Grafik 
oder Sound-Ausgabe zuständig. Es ist also wichtig, diesen 
Speicher für solche Daten freizuhalten. 

Das Fast-RAM kann nur vom MC 68000 angesprochen werden 
und ist deshalb schneller, weil keine Taktzyklen für andere 
Chips vergeben werden müssen. Hier sollten aber nur Pro¬ 
gramme oder interne Daten stehen, die nicht für Grafik oder 
I/O benötigt werden. 


ROM 

"Read Only Memory" - Nur-Lese-Speicher (Speicherchips, in die 
Daten unveränderbar eingebrannt wurden. z.B.: das Kickstart = 
im Amiga (500/2000) integriertes Betriebssystem). 


Kickstart, das Amiga-Betriebssystem 

Der Amiga verwaltet als Multi-Tasking-System seinen Speicher 
für jedes Programm, das irgendwelchen Speicher anfordert. Da 
dies in zufälliger Reihenfolge geschieht und zusätzlich die 
Menge des vorhandenen Speichers zwischen 256 und 9728 KByte 
differieren kann (256 KByte beim Amiga 1000 ohne Speicherer¬ 
weiterung und 9.5 MByte beim Amiga 2000 mit 8-MByte- 
Karte), läßt sich niemals mit Bestimmtheit sagen, wo welche 
Speicherbereiche untergebracht sind. 

Trotzdem können wir über einige Tatsachen etwas aussagen. So 
ist der Speicherverbrauch besonders wichtig. Schließlich wollen 
Sie ja wissen, wieviel Speicher z.B. übrigbleibt, wenn Sie GFA- 
BASIC starten. Wir können folgendes festhalten: 

Der Workbench-Screen verbraucht mit 2 BitPlanes und einer 
Auflösung von 640 x 256 Bildpunkten 40 KByte alleine für den 
Grafik-Speicher. Dazu kommt für jedes geöffnete Window und 
die darin enthaltenen Icons weitere KBytes, die ausschließlich 
vom Chip-RAM verbraucht werden, weil nur dort Grafik vom 
Blitter angesprochen werden kann. Zusätzlich öffnet GFA- 
BASIC einen Screen, auf dem der Editor sich befindet. Um hier 
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aber nicht noch einmal so viel Speicher zu verbrauchen, wurden 
nur 2 Farben erlaubt, wodurch sich der Verbrauch auf die 
Hälfte reduziert. 

Und zum Schluß ist GFA-BASIC ein weiterer großer Speicher¬ 
verbraucher. Allerdings reicht der verbleibende Speicher für alle 
unsere Demonstrationen aus, denn wir haben darauf geachtet, 
daß auch 500er-Besitzer in den Genuß unserer Programme 
kommen. 


4.8 Boolesche Logik 

Um nun den Computer zu einer Arbeit zu bewegen, die Ergeb¬ 
nisse liefert, mit denen wir etwas anfangen können, mußte ein 
Verfahren entwickelt werden, das die Arbeitsweise des Com¬ 
puters unserer eigenen angleicht. Es nützt wenig, ihn stur 
mathematische Aufgaben lösen zu lassen, was ja seine Lieblings¬ 
beschäftigung ist. Man will auch, daß unter bestimmten Bedin¬ 
gungen Entscheidungen von ihm selbständig getroffen werden. 
Sonst wäre er nichts weiter als ein besserer Taschenrechner. 

Ein englischer Mathematiker namens George Boole hat sich dazu 
eine Form der Arithmetik ausgedacht, die daher auch Boolesche 
Arithmetik oder Boolesche Algebra genannt wird. Seine Idee war 
es, für das Grundprinzip menschlicher Entscheidungen allge¬ 
meine Regeln zu bestimmen und diese auf den Computer zu 
übertragen. 

Wie entscheidet sich ein Mensch? Entscheidungen sind die 
Reaktion auf einzelne oder auch eine Folge von Bedingungen. 
Man nimmt eine Situation wahr, ordnet ihre Anforderungen in 
ein vorhandenes Handlungsschema ein und trifft aufgrund von 
Übereinstimmungen oder auch Nichtübereinstimmungen mit dem 
vorhandenen Wertesystem die Entscheidung darüber, was nun zu 
tun ist. Wir wissen allem was die Worte "und" und "oder" bedeu¬ 
tet. Beispielsweise könnten Sie folgende Aussagen machen: 

1. Wenn es warm ist und ich Zeit habe, werde ich baden 
gehen. 
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2. Wenn es kalt ist oder ich Zeit habe, werde ich nicht baden 
gehen. Wir verknüpfen mehrere Bedingungen miteinander, 
um danach zu entscheiden, was zu tun oder zu lassen ist. 
Nichts anderes bewirkt die Boolesche Logik. Dazu hat sich 
Boole mehrere solcher Verknüpfungsmodi einfallen lassen. 

Diese sind: 


AND, OR, NOT, X0R, IMP, EQV 


Wobei NOT eine Ausnahme darstellt. Hier handelt es sich nicht 
um eine Verknüpfung, sondern um die Umkehrung der ein¬ 
gehenden Information. Schauen wir uns an, wie sich diese Ver¬ 
knüpfungen auf die Behandlung der eingehenden Informationen 
auswirken. Dabei werden nacheinander von rechts ausgehend die 
Bits des ersten Operanden mit den jeweils gleichrangigen Bits 
des zweiten Operanden verknüpft. 


AND: 


11011001 
AND 01101101 


(Byte 1) 
(Byte 2) 


01001001 Ergebnis 


PRINT BINS(&X11011001 AND &X01101101) 
PRINT &X11011001 AND &X01101101 


Im Ergebnis-Byte wird nur dann ein Bit gesetzt, wenn an der 
gleichen Stelle im ersten UND im zweiten Ursprungs-Byte ein 
Bit gesetzt ist. 


OR: 


11011001 
OR 01101101 


(Byte 1) 
(Byte 2) 


11111101 Ergebnis 


PRINT BINS(&X11011001 OR &X01101101) 
PRINT &X11011001 OR &X01101101 
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Im Ergebnis-Byte wird immer dann ein Bit gesetzt, wenn ent¬ 
weder im ersten ODER im zweiten ODER in beiden Ursprungs- 
Bytes ein Bit gesetzt ist. 


XOR: 


11011001 
XOR 01101101 


(Byte 1) 
(Byte 2) 


10110100 Ergebnis 


PRINT BINS(&X11011001 XOR &X01101101) 
PRINT &X11011001 XOR &X01101101 


Im Ergebnis-Byte wird dann ein Bit gesetzt, wenn entweder im 
ersten ODER im zweiten, ABER NICHT in beiden Ursprungs- 
Bytes ein Bit gesetzt ist. XOR = exklusiv OR = exklusives (aus¬ 
schließendes) Oder. Bei den folgenden drei Operationen ist zu 
beachten, daß Vergleiche jeweils im LONG-Format (32 Bit) 
durchgeführt werden. Da das gesamte Langwort verknüpft wird, 
ergeben sich bei diesen Beispielen aufgrund der Zweierkomple¬ 
mentierung Minuswerte (siehe unter Variablen/Boole-Variable). 


IMP: 


11011001 
IMP 01101101 


(Byte 1) 
(Byte 2) 


11111111111111111111111101101111 Ergebnis 


PRINT BINS(&X11011001 IMP &X01101101) 
PRINT &X11011001 IMP &X01101101 


Im Ergebnis wird immer dann ein Bit gesetzt, wenn in beiden 
Ursprungs-Bytes ein Bit gesetzt ist oder in beiden Ursprungs- 
Bytes kein Bit gesetzt ist oder im ersten Byte kein Bit, aber im 
zweiten Byte ein Bit gesetzt wird. Dies nennt man Implikation. 
Das Ergebnis ist immer "unwahr" (also 0), wenn im ersten Byte 
ein Bit gesetzt ist, aber im zweiten keins. In allen anderen Fällen 
ist das Ergebnis "wahr" (also 1). 


EQV: 


11011001 
EQV 01101101 


(Byte 1) 
(Byte 2) 


11111111111111111111111101001011 


Ergebnis 
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PRINT BINSC&X11011001 EQV &X01101101) 

PRINT &X11011001 EQV &X01101101 

Dies ist das Gegenteil zu XOR. Im Ergebnis-Byte wird dann ein 
Bit gesetzt, wenn in beiden Ursprungs-Bytes entweder ein Bit 
gesetzt ist oder in beiden Ursprungs-Bytes kein Bit gesetzt ist. 
Ist in einem der beiden Bytes ein Bit gesetzt, aber im anderen 
nicht, ist das Ergebnis "unwahr" (also 0). 


NOT: 

NOT 11011001 


11111111111111111111111100100110 Ergebnis 


PRINT BINS(NOT &X11011001) 
PRINT NOT &X11011001 


Im Ergebnis-Byte wird dann ein Bit gesetzt, wenn im Ur¬ 
sprungs-Byte kein Bit gesetzt ist. Das Ergebnis ist also immer 
das Negativ des Ursprungs-Bytes. 


Mit Binärmustern lassen sich auch - wie mit Normalzahlen - 
Additionen, Subtraktionen, Multiplikationen und Divisionen 
durchführen. 


Idition: 

11011001 

(dez.=217) 

+ 

01101101 

(dez.=109) 

1 .Bit 1+1 

0 

(Übertrag=1) 

2.Bit 0+0+Übertrag= 

1 

(Übertrag=0) 

3.Bit 0+1 

1 

(Übertrag=0) 

4.Bit 1+1 

0 

(übertrag=1) 

5.Bit 1+0+Übertrag= 

0 

(Ubertrag=1) 

6.Bit 0+1+übertrag= 

0 

(Übertrag=1) 

7.Bit 1+1+übertrag= 

1 

(Übertrag=1) 

8.Bit 1+0+Übertrag= 

0 

(Übertrag=1) 

9.Bit = Übertrag = 

1 

101000110 

(dez.=326) 


PRINT BIN$(&X11011001+&X01101101) 
PRINT &X11011001+&X01101101 
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ibtraktion: 

11011001 

(dez.=217) 


- 

01101101 

<dez.=109) 

1 .Bit 

1-1 

0 

(Übertrag=0) 

2.Bit 

0-0 

0 

(i)bertrag=0) 

3.Bit 

0-1 

1 

(Übertrag=1) 

4. Bit 

1-1-0bertrag= 

1 

(übertrag=1) 

5.Bit 

1-0-übertrag= 

0 

(übertrag=0) 

6.Bit 

0-1 

1 

(Übertrags) 

7.Bit 

1-1-übertrag= 

1 

(Übertrag=1) 

8.Bit 

1-0-übertrag= 

0 

(übertrag=0) 



1101100 

(dez.=108) 


PRINT BINSC&X11011001-&X01101101) 
PRINT &X11011001-&X01101101 


Multiplikation: 

11011001 * 01101101 

(dez.: 

217*109) 

OP 1/Bitl * OP2= 


01101101 

(Rang: 

2‘0) 

+ OPI/Bit2 * OP2 


+00000000 

(Rang: 

2*1) 

Zwischenergebnis 

= 

001101101 



♦ OPI/Bit3 * OP2 


+00000000 

(Rang: 

2'2) 

Zwischenergebnis 

= 

0001101101 



+ OPI/Bit4 * OP2 


+01101101 

(Rang: 

2‘3) 

Zwischenergebnis 

= 

01111010101 



+ OPI/Bit5 * OP2 


+01101101 

(Rang: 

2‘4) 

Zwischenergebnis 

= 

101010100101 



+ OPI/Bit6 * OP2 


+00000000 

(Rang: 

25) 

Zwischenergebnis 

= 

0101010100101 



+ OP1/Bit7 * OP2 


+01101101 

(Rang: 

2‘6) 

Zwischenergebnis 

= 

10010111100101 



+ OPI/Bit8 * OP2 


+01101101 

(Rang: 

2‘7) 



101110001100101 

Ergebnis 


PRINT BINSC&X11011001*&X01101101) 
PRINT &X11011001*&X01101101 


Division (Integer): 

Die bitweise Division ist ein relativ kompliziertes Unterfangen. 
Aus diesem Grund wird hier nur ein einfaches Beispiel behan¬ 
delt, dessen nähere Erläuterung zu weit führen würde. Es kann 
hier nur ein ganzzahliges Ergebnis entstehen, da die bitweise 
Realzahl-Division auf diese Art nicht machbar bzw. derart auf¬ 
wendig ist, daß das Thema mehrere Seiten füllen würde. 
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11011001 / 10 = 1101100 
- 10 - 1 

010 

- 10 -' 

erweitert: 00011 - 1 

- 10 - 1 

010 

- 10 - 1 

erweitert: 0001 -' 

- 10 -• 

11...11111111111 (= -1, also Rest 1) 

PRINT BINSC&X11011001/&X01101101> 

PRINT &X11011001/&X01101101 

Bei all diesen Beispielen wurde das Format Byte gewählt, da 
Ihnen dieses Format am häufigsten begegnen wird. Grundsätzlich 
sind diese Operationen mit jedem Format durchführbar. 

Die eben behandelte Thematik gehört nicht gerade zu den ein¬ 
fachen Dingen in der Computerwelt. Eine Notwendigkeit, mit 
logischen Operatoren und Bit-Arithmetik umzugehen, besteht 
allerdings nur für jene, die den Ehrgeiz haben, in die tieferen 
Ebenen der Programmierung hinabzusteigen. Wenn Sie dazu Nei¬ 
gung verspüren, ist es auf jeden Fall gut, etwas davon gehört 
bzw. gelesen zu haben. 


Im wesentlichen kann 
bei der Binär-Division 
(ebenso wie bei + , *) 

genauso verfahren werden 
wie bei Dezimalrechnungen. 
Da jedoch in Zweierpotenzen 
gearbeitet wird, können 
gebrochene Anteile nicht 
exakt ermittelt werden. 


4.9 Bedingungen und Konsequenzen 

In einer anderen Beziehung ist es jedoch ausgesprochen ratsam, 
sich zumindest mit den beiden Boole-Operatoren AND und OR 
auseinanderzusetzen. Es gibt nämlich mehrere Befehle im 
BASIC, die die Angabe einer Bedingung erforderlich machen. 

Nehmen wir als Beispiel den Befehl IF...ELSE...ENDIF (siehe 
dort). Dieses ist wohl der gebräuchlichste Befehl, um den Fort¬ 
lauf des Programms von einer Bedingung abhängig zu machen. 
Weiter vorn wurden zwei typische Bedingungen und ihre Konse- 
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quenzen vorgestellt, wie sie in dieser oder einer ähnlichen Art 
im täglichen Leben ständig Vorkommen. 

Wenn es warm ist und ich Zeit habe, werde ich baden gehen. 
Wenn es kalt ist oder ich keine Zeit habe, werde ich nicht baden 
gehen. Es werden in beiden Fällen zwei Bedingungen gestellt, 
deren Erfüllung mit einer Konsequenz verbunden ist. 

Um das nun in ein anwendbares Beispiel zur Programm-Ent¬ 
scheidung übertragen zu können, setzen wir für einige Worte in 
den beiden Sätzen Symbole ein. Für jeden Ausdruck, der etwas 
bejaht, nehmen wir den Wert 1, und für jeden Ausdruck, der 
etwas verneint, setzen wir den Wert 0. 

Also: 


ist = 1 
haben = 1 
gehen = 1 
nicht haben = 0 
nicht gehen = 0 


In die Struktur einer IF-Bedingung eingefügt, bekommen die 
beiden Sätze nun folgende Form: 


If warn*=1 And Zeit=1 
Baden=1 
Endif 

If Kalt=1 Or Zeit=0 
Badens0 
Endif 


! Wenn warm "ist" UNO Zeit "haben" 

! dann baden "gehen" 

! Ende der Konsequenz 
I Wenn kalt "ist" OOER Zeit "nicht haben" 
I dann baden "nicht gehen" 

! Ende der Konsequenz 


Sie merken, daß bei Verwendung von Symbolen für "Ja" und 
"Nein" schon recht komplizierte Entscheidungen möglich sind. 
Das kann man sogar noch wesentlich weiter führen, wenn man 
eine weitere Möglichkeit anwendet, die das GFA-BASIC bietet, 
man kann mehrere Bedingungen mit einer Klammer zusammen¬ 
fassen und dazu alternativ weitere Bedingungen stellen. 

Eine solche Alternative könnte im obigen Beispiel sein: 

...oder wenn die Badehalle auf ist,... 
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Der vollständige Satz wäre dann: 

Wenn es warm ist oder wenn die Badehalle auf ist und ich Zeit habe, 
werde ich baden gehen. 

Für die positive Eigenschaft "auf" setzen wir den Wert 1. 

IF-Struktur: 

If (Uarnt=1 Or Halle=1) And Zeit=1 ! Wenn (warm "ist" OOER 

I Badehalle "auf") 

I UND Zeit "haben" 

Baden=1 I dann baden "gehen" 

Endif ! Ende der Konsequenz 

Der Faktor "Zeit" bezieht sich hier auf beide vorangestellten 
Alternativen. Wenn ich z.B. auch in die Badehalle gehen würde, 
wenn ich keine Zeit hätte, müßte die Klammer anders gesetzt 
werden, da sich "Zeit" dann nur auf "warm" bezieht: 

If (warm=1 And Zeit=1) Or Haile=1 ! Wenn (warm "ist" UND 

I Zeit "haben") 

! OOER Badehalle "auf" 

Baden=1 ! dann baden "gehen" 

Endif ! Ende der Konsequenz 

Wenn im vorherigen Beispiel "warm" ODER "Badehalle" die 
Alternativen waren, so sind es jetzt "(warm UND Zeit)” ODER 
"Badehalle". 

Zur IF-Struktur ist hier zu sagen, daß diese grundsätzlich mit 
einem ENDIF abgeschlossen werden muß, um dem Interpreter 
kenntlich zu machen, welche Konsequenzen zu welcher Bedin¬ 
gung gehören. 

Es gibt auch die Möglichkeit, eine Alternativ-Konsequenz zu 
formulieren. 

Wenn ich sage, daß ich unter bestimmten Bedingungen etwas tun 
werde, so folgt daraus implizit, daß ich dann, wenn die Bedin¬ 
gungen nicht erfüllt sind, etwas anderes tun werde. 

Im obigen Beispiel könnte das sein: 
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Wenn es warm ist oder wenn die Badehalle auf ist und ich Zeit 
habe, werde ich baden gehen. Andernfalls werde ich nicht baden 
gehen und ein Buch lesen. 


Für "lesen" (positiv) setzen wir hier wieder eine 1 und für "nicht 
lesen" (negativ) eine 0. 


IF-Struktur: 

If (Uarm=1 Or Haüe=1) And Zeit=1 


Baden=1 

Buch=0 

Else 

Baden=0 

Buch=1 

Endif 


! Wenn (warm "ist" 00ER -. 

! Badehalle "auf") 

! UND Zeit "haben" 

I dann baden "gehen" 

I dann Buch "nicht lesen" 

! sonst - 

! baden "nicht gehen" 

! Buch "lesen" 

! Ende d. Alternativ-Konsequenz- 1 


Der Ausdruck ELSE steht hier für "andernfalls" oder auch 
"sonst". ELSE ist also die konsequente Umkehrung der bei IF 
gestellten Bedingungen. Die zwischen ELSE und ENDIF einge¬ 
schlossenen Konsequenzen bekommen nur dann Gültigkeit, wenn 
keine der bei IF gestellten Bedingungen zutrifft. 


Das heißt wiederum, daß immer dann, wenn das Programm auf 
eine IF-Abfrage trifft, die mit einer ELSE-Anweisung verbun¬ 
den ist, entweder die unter IF oder die unter ELSE eingebun¬ 
denen Konsequenzen Gültigkeit bekommen. Soll das nicht ge¬ 
schehen, wird die ELSE-Anweisung einfach weggelassen. D.h., 
daß die Nichterfüllung der unter IF gestellten Bedingungen 
keine weitere Konsequenz hat, als daß das Programm hinter der 
zugehörigen ENDIF-Anweisung fortgesetzt wird. 


Um nun nicht alle Bedingungen, die abgefragt werden sollen, in 
eine einzige Programmzeile schreiben zu müssen oder um meh¬ 
rere Folgebedingungen definieren zu können, können solche IF- 
Abfragen auch verschachtelt werden. Den Begriff "Ver- 
schachteln" werden Sie weiter unten auch bei den Schleifen- 
Strukturen wiederfinden. Damit ist gemeint, daß z.B. in einer 
IF-Abfrage weitere Abfragen auftreten können, so daß auch 
Unterverzweigungen möglich werden. 
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If Warm=1 Or Halle=1 
If Zeit=1 
Baden=1 
Else 
Baden=0 
Endif 
Buch=0 
Else 
Buch=1 
Endif 


! Wenn warm "ist" OOER Halle "auf" 

! UNO Zeit "haben" -. 

! dann baden "gehen" 

! sonst - 

! baden "nicht gehen" 

! Ende der Alternative - 1 

! in beiden Fällen "nicht lesen" 

! sonst - 

! Buch "lesen" 

! Ende d. 1. Alternativ-Konsequenz 


Dieses Beispiel entscheidet in zwei Stufen, welche Konsequenzen 
die Erfüllung zweier unabhängiger Bedingungen haben soll. Erst 
wenn es warm ist oder die Badehalle auf ist, soll der Zeitfaktor 
in Betracht gezogen werden. Ist es weder warm noch die Bade¬ 
halle auf, so wird der Zeitfaktor von vorneherein vernachlässigt 
und die Entscheidung "Buch lesen" getroffen. 

Anhand dieser einfachen Beispiele ist die Übertragbarkeit all¬ 
täglicher Entscheidungen in die Logik der Computerwelt hof¬ 
fentlich etwas deutlich geworden. Mit Zunahme Ihrer Routine 
wird auch die Einsicht in die Möglichkeiten dieser Ver¬ 
knüpfungen wachsen. Es ist jedenfalls manchmal recht faszinie¬ 
rend, wie sich durch komplexe Bedingungen unterschiedliche 
Einflüsse so abfangen und verarbeiten lassen, daß schon der 
Eindruck eines "intelligenten" Programms entsteht. Die Virtuosi¬ 
tät im Umgang mit Bedingungen kennzeichnet den guten Pro¬ 
grammierer. 


4.10 Flags 

Oben wurde noch ein weiteres Prinzip effektiver Programmie¬ 
rung sichtbar. Man nennt es Flags (Flaggen). Diese Flags haben 
eine sehr wichtige Funktion in jedem Programm, das nicht nur 
die Grundfunktionen und -Strukturen verwendet, sondern dar¬ 
über hinaus verschiedene Zustände signalisieren kann, die dann 
in die Entscheidungsfindung einbezogen werden sollen. Bemühen 
wir noch einmal unser Beispiel: 

If Warm=1 Or Badehaile=1 
Flag=1 
Endif 
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. ... weiteres Programm ... 

If Flag=1 And Zeit=1 
Baden=1 
Endif 

Es kann also ein Zustand an irgendeiner Program ms teile ausge¬ 
wertet werden, dessen Ergebnis erst später zur Wirkung kommen 
soll. Es ist hier denkbar, daß die in "Flag" gespeicherte Informa¬ 
tion an mehreren Stellen im Programm ausschlaggebend sein soll. 

Um nun nicht an jeder dieser Stellen die Entscheidung treffen 
(und auch definieren) zu müssen, ob es warm ist oder ob die 
Badehalle auf ist, kann man diese Entscheidung bei frühestmög¬ 
licher Gelegenheit vornehmen und die Information, ob die Ent¬ 
scheidung positiv oder negativ ausgefallen ist, in einer Variablen 
speichern und diese dann bei weiteren Gelegenheiten abfragen. 

Vielleicht weiß ich heute schon, daß es morgen warm sein wird, 
aber ich weiß heute noch nicht, ob ich morgen Zeit haben 
werde, baden zu gehen. Also treffe ich die zweite Teilentschei¬ 
dung erst dann, wenn die dazu erforderlichen Umstände einge¬ 
treten sind. Im Beispiel wurde der Variablenname "Flag" will¬ 
kürlich gewählt. Sie können dafür natürlich jeden beliebigen 
Variablennamen verwenden. 


4.11 Die Variablen 

Variablen haben in einem Programm dieselbe Funktion, wie wir 
sie aus der Mathematik kennen. Sie werden als Platzhalter für 
Größen oder Ausdrücke (numerische oder alphanumerische) ein¬ 
gesetzt, deren Inhalte erst im Programmverlauf ermittelt und zu¬ 
gewiesen werden und sich im weiteren Programm ständig verän¬ 
dern können. Wir wissen also entweder zum Zeitpunkt der Pro¬ 
grammentwicklung nur, "daß" etwas in diesen Variablen abgelegt 
wird, aber noch nicht "was", oder wir weisen ihnen im Pro- 
gramm-Listing Inhalte zu, die wir an den gegebenen Stellen für 
notwendig halten. 
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Um keine Mißverständnisse aufkommen zu lassen: Auf eine Art 
wissen wir im ersten Fall schon, "was" diese Variablen aufzu¬ 
nehmen haben, wir wissen nur nicht, welcher konkrete Inhalt es 
sein wird. Denn eine Entscheidung hat man von vorneherein 
selbst zu treffen und zwar, welcher Variablentyp einzusetzen ist. 
Es gibt zwei grundlegend verschiedene Typen von Variablen. 
Das sind die numerischen bzw. Werte-Variablen und die alpha¬ 
numerischen bzw. Text- oder auch String-Variablen. Numerische 
Variablen haben die Aufgabe, Werte zu speichern. 

Hypo=SQR(22‘2+13'2) ! Hypo = Wurzel aus (22 hoch 2+13 hoch 2) 

Ein Beispiel, das wohl alle aus der Schule kennen. Es werden die 
beiden Kathetenlängen eines rechtwinkligen Dreiecks quadriert 
und die Quadrate addiert. Anschließend wird nach dem Satz des 
Pythagoras die Länge der Hypotenuse berechnet. Das Ergebnis 
dieser Berechnung wird nun der Variablen "Hypo" zugewiesen. 
Solange keine weiteren Werte an diese Variable übergeben wer¬ 
den, enthält sie die Länge der Hypotenuse des angegebenen 
Dreiecks. Dieser Wert kann im Laufe des Programms beliebig oft 
erfragt oder auch durch Neuzuweisungen verändert werden. 

Es gibt fünf verschiedene Typen von numerischen Variablen. 
Wenn wir eine Zahl speichern wollen, die auch Nachkommastel¬ 
len beinhaltet, also eine sogenannte Realzahl, wird nur der reine 
Variablenname angegeben. Diesen Typ haben wir im obigen 
Beispiel kennengelernt. Er benötigt zur Speicherung der ihm 
übergebenen Werte generell einen Speicherplatz von 8 Byte pro 
Variable. Dadurch ist eine Genauigkeit von bis zu 13 Stellen 
möglich. Wertezuweisungen, die über diese 13 Stellen hinaus¬ 
gehen, werden automatisch auf die 13. Stelle gerundet: 

A=123.125237667231 ergibt A=123.12523767 

Bei ganzzahligen Anteilen von mehr als 13 Stellen wird die 
übergebene Zahl automatisch in das Exponentialformat gewan¬ 
delt: 


A=642653017623.527 ergibt A=6.4265301762235E+11 
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Andererseits werden Wertzuweisungen, die als "Normal"-Zahl 
darstellbar sind und im Exponentialformat angegeben wurden, in 
das Normalformat gewandelt. 

A=1284.55E+5 ergibt *=128455000 

Im Exponentialformat sind Wertzuweisungen im Bereich von - 
2.22507385807E-308 bis 3.595386269725E+308 möglich. Eine 
Exponentialzahl ist folgendermaßen zu lesen: 

54.6341E+7 entspricht 54.6341 * (10 * 7) 

Ein weiterer Typ ist die Integerzahl. Dies sind Zahlen, die keine 
Nachkommastellen haben sollen. Es können ihnen also nur 
Ganzzahlen zugewiesen werden. Um wieder einem Irrtum vorzu¬ 
beugen: Es können natürlich auch Realzahlen zugewiesen wer¬ 
den. Diese werden in einer Integervariablen nicht als solche ge¬ 
speichert, sondern die evtl, mit übergebenen Nachkommastellen 
werden einfach "vergessen". 

AX=149.523 
PRINT AX 

==========> Ausgabe: 149 

Um dem Interpreter klarzumachen, daß er es hier mit einer 
Variablen des Integertyps zu tun hat, muß dem Variablennamen 
ein ’%’ (z.B. Var%) angehängt werden. Pro Variable benötigt 
dieser Typ einen Speicherplatz von 4 Bytes, woraus sich ein 
Integer-Bereich von -2147483648 bis 2147483647 ergibt. Ferner 
V3.0 gibt es noch die 1- und 2-Byte-Integervariable. 

Der dritte numerische Typ ist die Boole-Variable. In ihr können 
ausschließlich zwei Werte abgelegt werden. Wenn Sie sich später 
mit den einzelnen BASIC-Befehlen befassen werden, werden 
Ihnen mehrere Funktionen begegnen, die als Ergebnis ebenfalls 
nur zwei verschiedene Werte liefern können. Der eine Wert ist 
die Null. Dieser Wert gilt im Interpreter als der Wahrheitswert 0. 
Auch wenn er Wahrheitswert genannt wird, ist dieser Wert stell¬ 
vertretend für die Feststellung "falsch". Der andere Wahrheits¬ 
wert ist die Zahl -1. Dieser Wert steht grundsätzlich stellver¬ 
tretend für die Feststellung "richtig". 
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Warum für die Feststellung "richtig" eine 1 steht, hat seinen 
Grund in der sogenannten Zweierkomplement-Darstellung. In 
einem Longword sind in diesem Fall alle Bits "gesetzt" (ange¬ 
schaltet), also auch das höchste. Daraus ergibt sich ein Minus¬ 
wert. Dieses Verfahren hier zu erläutern, würde den gesetzten 
Rahmen sprengen. Als BASIC-Anfänger muß es Sie im allge¬ 
meinen auch nicht näher interessieren. Kluge Köpfe wurden 
evtl, weiter oben bei Words und Longwords schon stutzig, wo als 
maximaler Wertebereich 2 A 31-1 genannt wurde. Dieses liegt an 
der Zweierkomplementierung, die das oberste Bit als Minus- 
Identifikator verwendet. Sobald vor einer Zahl ein Minuszeichen 
steht, wird das oberste Bit eines Longwords gesetzt und die Zahl 
vorzeichenlos von 2 A 31 abgezogen. Das daraus entstehende Bit- 
Muster wird bei Zweierkomlementdarstellung als Minuswert 
interpretiert und dementsprechend zurückgegeben. 

PRINT BIN$(1) 

========> Ausgabe: 00000000000000000000000000000001 (1 Bit) 

PRINT BIN$(2‘31-1) 

========> Ausgabe: 1111111111111111111111111111111 (31 Bit) 

PRINT BIN$(-2‘31) 

========> Ausgabe: 10000000000000000000000000000000 (32 Bit) 

PRINT BIN$(-2'31+1) 

«=«=»> Ausgabe: 10000000000000000000000000000001 (32 Bit) 

PRINT BIN$(-2‘31+2) 

========> Ausgabe: 10000000000000000000000000000010 (32 Bit) 

PRINT BINS(-2*31+2*15) 

========> Ausgabe: 10000000000000001000000000000000 (32 Bit) 

PRINT BINS(2'31-2‘15) 

========> Ausgabe: 1111111111111111000000000000000 (31 Bit) 


AX=-1 

PRINT LPEEK(VARPTR(A%)) 

========> Ausgabe: 11111111111111111111111111111111 (32 Bit) 


Zurück zu den Wahrheitswerten. Nehmen wir dazu als Beispiel 
den Befehl EXIST. Dieser hat die (oberflächlich gesehen) ein¬ 
fache Aufgabe, festzustellen, ob eine bestimmte Datei auf der 
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Diskette existiert oder nicht. Existiert die Datei, liefert EXIST 
den Wert -1. Andernfalls wird der Wert 0 zurückgegeben. 
Andere Werte können von dieser Funktion nicht geliefert wer¬ 
den, weil nur zwei Zustände auftreten können. Entweder die 
Datei existiert, oder sie existiert nicht. Daraus ist der eigentliche 
Sinn der Boole-Variablen erkennbar. Überall dort, wo aus einer 
Entscheidungsfindung nur die Antworten "Ja" oder "Nein" bzw, 
"richtig" oder "falsch" resultieren können, können Wahrheitswerte 
in ihnen abgelegt werden. 

Die Boole-Variable kann nur einen dieser beiden Werte auf¬ 
nehmen. Selbst wenn Sie irgendeinen beliebigen Wert zuordnen, 
wird der Interpreter immer nur zwischen "falsch" (0) und "rich¬ 
tig" (-1) unterscheiden. Alle Werte, die diesem Variablentyp 
übergeben werden und ungleich 0 sind, werden automatisch als 
’wahr’, also -1 interpretiert und abgespeichert. Dieser 
Variablentyp hat den Vorteil, daß er zur Speicherung seiner In¬ 
halte nur 2 Byte pro Variable benötigt. Will man eine Variable 
als Boole-Variable verstanden wissen, muß man dem Variablen¬ 
namen das Zeichen ’!’ (z.B. Var!) anhängen. 

In Text- bzw. String-Variablen (String; engl.: Kette/ 
Reihe/Schnur/ Saite) werden dagegen keine Werte, sondern 
Textzeichen abgelegt. Genaugenommen sind diese Zeichen 
ebenfalls Werte, wie wir weiter vorn schon kennengelernt haben 
(ASCII-Zeichen). Nur bei dieser Art der Variablen "weiß" 
BASIC, daß es die hier abgelegten Werte nicht als Zahlen, son¬ 
dern als ASCII-Zeichen zu interpretieren hat. Vorausgesetzt, es 
wurde ihm klargemacht, daß es sich hier um eine String- 
Variable handelt. Das macht man, indem man dem Variablen¬ 
namen ein (Dollarzeichen - z.B. Var$) anhängt. 

Eine String-Variable kann im GFA-BASIC eine Zeichenkette 
mit einer Anzahl von 0 bis 32767 einzelner Textzeichen auf¬ 
nehmen. Das heißt nun nicht, daß jede String-Variable einen 
Speicherplatz von 32767 Byte (1 ASCII-Zeichen = 1 Byte) reser¬ 
viert, sondern daß ein String mit maximal 32767 Zeichen über¬ 
geben werden kann. Die Länge, die eine solche Variable an¬ 
nimmt, hängt jeweils eben davon ab, wieviele Zeichen zugeord¬ 
net wurden. An Speicherplatz benötigt eine String-Variable so- 
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viel Byte, wie Zeichen vorhanden sind. Zusätzlich werden zu je¬ 
der String-Variablen noch 6 Byte benötigt. 

Zu jeder String-Variablen existiert nämlich ein sogenannter 
Descriptor (Beschreiber), der sich selbständig die Adresse, also 
den Standort der Variablen im Speicher sowie ihre Länge 
"merkt" (mehr dazu unter ARRPTR und "Variablenorganisa- 
tion/-typen"). 

A$="BASIC" 

PRINT "Der String hat eine Länge von ,, ;LEN(A$);" Zeichen" 

PRINT »Die Stringadresse ist »;VARPTR(AS) 

PRINT "Der Descriptor für A$ steht bei Adresse ";ARRPTR(AS) 

PRINT "Das erste Byte des Strings hat den Wert ";PEEK(Varptr(AS)) 

PRINT "Der Wert ";PEEK(VARPTR(A$));" repräsentiert das Zeichen »; 

PRINT CHR$(PEEK(VARPTR(A$))) 

Als erstes wurde hier der Variablen "A$" der String "BASIC" 
übergeben. Anschließend wird mit der BASIC-Funktion LEN 
die Länge des Strings ermittelt. Um nun in Erfahrung zu brin¬ 
gen, wo das erste Zeichen (Byte) dieses Textausdrucks im 
Speicher zu finden ist, kann mit der BASIC-Funktion VARPTR 
(was soviel wie "Variablenzeiger" heißt) die Adresse erfragt wer¬ 
den. Mit der Speicherlese-Funktion PEEK wird nun der Byte- 
Wert des ersten Zeichens aus der mit VARPTR ermittelten 
Adresse ausgelesen. Und zum Schluß wandelt die Textfunktion 
CHR$ den so gelesenen Wert wieder zurück in ein Textzeichen, 
das genau der erste Buchstabe des übergebenen Strings ist. 

Zählen Sie zu der mit VARPTR ermittelten Adresse eine 1 
hinzu, haben Sie die Adresse des zweiten Zeichens. Addieren Sie 
eine 2, erhalten Sie die Adresse des dritten Zeichens usw. 

AS=»BASIC" 

PRINT »Das zweite Zeichen hat den ASCII-Uert »;PEEK(VARPTR(AS)+1) 

Wenn Sie den ganzen Variableninhalt auf dem Bildschirm sehen 
wollen, geben Sie 

PRINT AS 

ein, und der String wird auf dem Bildschirm ausgegeben. 
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4.12 Matrix und Vektor 

Das hört sich fast an wie der Titel eines Shakespeare-Dramas. 
Da es ja nicht langweilig werden soll und man außerdem ohne 
sie nicht auskommen kann, gibt es noch eine weitere Gattung 
der Variablentypen. Man nennt sie Felder oder Arrays (array = 
Aufstellung/Reihe/Ordnung). Wer in der Schule gut aufgepaßt 
hat, weiß, daß man zur Berechnung einer Funktionskurve min¬ 
destens zwei Größen benötigt. In den meisten Fällen werden dies 
die Größen "X" und "Y" gewesen sein. Der Berechnungsvorgang 
ist der, daß zu jeder angenommenen Größe "X" anhand einer 
Funktionsgleichung die Größe "Y" zu ermitteln war. Aus den 
Schnittpunkten dieser beiden Größen ergaben sich dann die 
Punkte der Kurve. 

Diese beiden Werte stellten auf die jeweilige Funktion bezogen 
ein Koordinatenpaar dar. Um nun mit den jeweils zusammenge¬ 
hörenden Ordinaten-Werten nicht durcheinanderzukommen, 
kann man ein Feld einrichten. Dieser Vorgang ist nichts anderes 
als das, was wohl die meisten unter dem Begriff Wertetabelle 
kennen. Solch ein zweidimensionales Feld wird auch als Matrix 
bezeichnet, wovon ‘jede einzelne Dimension einen Vektor dar¬ 
stellt. 

Ein Vektor (hier im Sinne von "Einheitsvektor") ist dagegen (im 
allgemeinen Verständnis) ein Feld, das nur eine Dimension be¬ 
sitzt und meist dazu verwendet wird, mehrere Werte, die zu 
einer bestimmten Gruppe gehören, unter einer gemeinsamen 
"Überschrift" (dem Variablennamen) zusammenfassen und ord¬ 
nen zu können. 

Weitere Informationen zum Umgang mit Feldern finden Sie 
unter DIM bzw. "Aufbau eines mehrdimensionalen Feldes". 
Außer den Boole-Variablen benötigen alle anderen Variablen¬ 
typen in einem Array denselben Speicherplatz, den sie auch als 
Einzelvariable beanspruchen. Die Boole-Variable benötigt dage¬ 
gen in einem Array pro Element nur einen Speicherplatz von 
einem einzigen Bit. 



52 


Das große GFA-BASIC-Buch 


4.13 Erkennungsdienst 

Mir ist immer wieder aufgefallen, daß eines der größten Pro¬ 
bleme, eine Computersprache zu erlernen, darin besteht, daß 
man am Anfang in einem Listing nicht unterscheiden kann, was 
denn nun Befehle (also feststehende Begriffe) und was Namen 
(also frei bestimmbare Begriffe) sind. Dazu einige Grundregeln. 

Die erste: Lernen Sie alle Befehlsnamen so schnell wie möglich 
auswendig. Alles andere können nur noch freie Begriffe sein! 
Vorsicht: Ironie, aber etwas Wahres ist an diesem banalen Satz. 

Wenn das so einfach wäre, wie es sich anhört. Gerade bei einer 
Sprache wie GFA-BASIC, die in der Amiga-Version 3.0 ca. 360 
verschiedene Befehle, Funktionen, reservierte Variablen und 
Felder kennt, ist man schnell überfordert. 

In GFA-BASIC kann man in der Amiga-Version problemlos 
auch Befehlsnamen als Variablennamen verwenden. Es gibt also 
bis auf reservierte Variablen (TIMER, DATES etc.) keine reser¬ 
vierten Begriffe. Bei Prozeduren ist auch schon in anderen Ver¬ 
sionen möglich gewesen, zur Namensbildung Befehlsnamen zu 
verwenden, jedoch lassen sich diese relativ einfach von Befehlen 
unterscheiden. Eine Prozedur beginnt immer mit der Kennung 
PROCEDURE, eine Funktion immer mit der Kennung DEFFN, 
und ein Label steht immer allein bzw. evtl, mit einem Kom¬ 
mentar (IKommentar) versehen und endet mit einem Doppel¬ 
punkt. 

Data label: 


oder 


Xyz_label.1: IKommentar abc....xyz 

Prozedur-Aufrufe sind an dem vorangestellten GOSUB oder @ 
zu erkennen, während Funktionsaufrufe immer mit FN oder 
ebenfalls mit @ beginnen. 


Gosub Procl 
Xy%=Fn Funkl 


oder 

oder 


SProcI 

XyX=3Funk1 
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Bei Labels sind nur solche Bezeichnungen möglich, die vom 
Interpreter nicht falsch verstanden werden können. Z.B. wird ein 
Label mit dem Namen Save: in den Befehl SAVE oder der 
Name Fileselect: in FILES "elect:" umgewandelt. 

Der Label-Name Print: ist z.B. also ohne weiteres möglich, sollte 
jedoch zugunsten der besseren Überschaubarkeit unterbleiben. 

Wie vorn schon ausgeführt, haben Variablen (bis auf Real- 
Variablen ;optional "#") eine Endkennung. Integervariablen er¬ 
halten ein ’%' (Var%), Byte-Variablen ein "|" (Var|), Word- 
Variablen ein (Var&), Boole-Variablen ein ’!’ (Var!) und 
String-Variablen ein ’$’ (Var$). Diese sind also ebenfalls an 
ihren Kennungen leicht auszumachen. 

Als Namen können beliebig lange Bezeichnungen eingesetzt wer¬ 
den, die sich aus den normalen Textzeichen (A-Z/a-z/0-9), so¬ 
wie dem Tiefstrich _ und dem Punkt zusammensetzen können. 
Bei Namen von Variablen und Funktionen muß das erste 
Zeichen allerdings ein Buchstabe sein. 

V.aria_blen_name. 1 

Feld_titel.xyz%(Dim1,Dim2,...) 

1: <- Soll ein Label sein! 

PROCEDURE 1724_von_a.bis.z 
DEFFN hardcopy=XX*YX 


Um allen Irritationen aus dem Wege zu gehen, schreibt der 
BASIC-Editor alle Befehlsnamen grundsätzlich groß. Für den 
Anfänger ist dies eine gewaltige Hilfe. 

Wenn Sie sich einige Zeit mit GFA-BASIC beschäftigt haben, 
werden Sie diese Hilfe sicher nicht mehr benötigen, da sich al¬ 
lein aus der Logik der Syntax schon eine eindeutige Bestimmung 
ergibt. Ein Name, hinter dem ein Gleichheitszeichen steht, kann 
z.B. nur eine Variable sein, und ein Name, dem ein voran¬ 
gestellt ist und der direkt am Zeilenanfang steht, kann nur ein 
Prozeduraufruf sein. Befindet sich dagegen vor einem Namen 
mit vorangestelltem ein Gleichheitszeichen, kann es sich nur 
um einen Funktionsaufruf handeln usw. 
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Ich komme wieder auf den obigen "Spruch" zurück. Setzen Sie 
sich am Anfang zuerst mit den Grundlagen-Befehlen (PRINT, 
INPUT, READ, DATA, PEEK, POKE, GOSUB etc.) auseinan¬ 
der, und versuchen Sie, die übrigen Komfort-Befehle und - 
Funktionen erst einmal weitestgehend zu ignorieren. Wenn Sie in 
den Grund-Befehlen sattelfest sind, erweitern Sie Ihren Sprach¬ 
schatz nach und nach um die restlichen Befehle. 


4.14 Schleifenstrukturen 

Schleife nennt man jede Form von Programmstruktur, die be¬ 
wirkt, daß ein ganz bestimmter Programmblock mehrmals nach¬ 
einander durchlaufen wird. In GFA-BASIC sind vier solcher 
Loops (Loop = Schleife) verwendbar. 

1. FOR...NEXT-Schleife 

2. DO...LOOP-Schleife 

3. REPEAT...UNTIL-Schleife 

4. WHILE...WEND-Schleife 

Untersuchen wir als erstes zwei Typen, die Bedingungsabfragen 
implizit verwenden. 

Die REPEAT...UNTIL-Schleife 

Der Schleifendurchlauf wird durch die Anweisung REPEAT 
eingeleitet. Im Anschluß an diese Anweisung folgt nun ein be¬ 
liebig großer Programmblock, der wiederholt ausgeführt werden 
soll. Die Eigenart dieser Schleife ist eine Bedingungsabfrage am 
Ende, also am Wendepunkt der Schleife. Die dort gestellte Be¬ 
dingung bestimmt, wie oft die Schleife durchlaufen werden soll 
bzw. unter welchen Bedingungen die Schleife nicht mehr durch¬ 
laufen werden soll. Der Schleifenwendepunkt heißt hier UNTIL. 
Dieser Umkehr-Anweisung wird die genannte Bedingung beige¬ 
stellt. 


REPEAT 
INC A 
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B=SOR(A) 

PRINT "Wurzel aus ";A;" = ";B 

UNTIL B=15 OR A=200 

Innerhalb der Schleife wird hier ein Zähler (A) durch INC bei 
jedem Durchlauf um 1 erhöht, anschließend wird die Wurzel 
daraus ermittelt, und die beiden Werte werden ausgegeben. Wie 
Sie sehen, bestimmt die Bedingung B=15, daß die Schleife so oft 
durchlaufen wird, bis der Wurzelwert mit der Zahl 15 identisch 
ist. Wie auch bei IF-Abfragen können hier die Bedingungen mit 
logischen Operatoren verknüpft werden. So wird hier die 
Schleife auch (unabhängig von B) verlassen, wenn der Zähler 
den Wert 200 erreicht. 

Die wesentliche Eigenart dieses Schleifentyps ist, daß der 
Schleifeninhalt auf jeden Fall mindestens einmal durchlaufen 
wird, da die Bedingungsabfrage erst am Ende der Schleife er¬ 
folgt. 

Anders ist es bei der WHILE...WEND-Schleife. Diese wird dage¬ 
gen gar nicht durchlaufen, wenn die Laufbedingung bereits bei 
Erreichen der Schleife erfüllt ist. 

A=11 

UH ILE A<10 
INC A 

PRINT SQR(A) 

UEND 

Der Programmblock innerhalb der Schleife wird nicht ausge¬ 
führt. Der Schleifeneinstieg WHILE (während/solange) sagt aus, 
daß der Block solange durchlaufen werden soll, wie A kleiner 
als 10 ist. Da A bereits vorher größer ist, wird das Programm 
sofort hinter dem Wendepunkt WEND fortgesetzt. 

Für den Fall, daß die Schleife durchlaufen wird, wird bei jedem 
Durchlauf geprüft, ob die bei WHILE gestellte Bedingung erfüllt 
ist. Ist sie das nicht, wird der Block nicht noch einmal ausge¬ 
führt und das Programm ebenfalls hinter WEND fortgesetzt. 
Auch hier können, bei Angabe mehrerer Bedingungen, diese 
logisch verknüpft werden. 
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Eine sehr gebräuchliche Schleifenform, die FOR...NEXT- 
Schleife, verwendet dagegen keine Bedingung dieser Art, son¬ 
dern führt die Schleife so oft aus, wie in einer Zählanweisung 
vorgegeben wird. 

FOR AX=1 TO 225 
B=SQR(AX) 

PRINT »Wurzel aus ";AX; M = ";B 
NEXT AX 

In der FOR-Zeile wird eine beliebige Zählvariable (hier A%) 
angegeben, die im Verlauf der Schleife solange um den Wert 1 
(hier beginnend mit 1) erhöht wird, bis sie den Endwert (hier 
225) erreicht hat. Der Schleifenwendepunkt wird durch die An¬ 
weisung NEXT gekennzeichnet. Dieser Anweisung ist der Name 
der verwendeten Zählvariablen beizustellen. Die FOR...NEXT- 
Schleife verfügt noch über einige Varianten, die Sie aus der 
Befehlsbeschreibung zu FOR...NEXT entnehmen können. 

Eine Schleife ohne Bedingungsabfrage oder Zähler ist die 
DO...LOOP-Schleife. Dieser Schleifentyp führt den zwischen DO 
und LOOP eingeschlossenen Programmblock unendlich lange aus. 
Es kann keine Abbruchbedingung implizit definiert werden. 

DO 

INC AX 
B=SQR(AX) 

PRINT "Wurzel aus »;AX;» = »;B 
LOOP 

Soll eine DO...LOOP-Schleife abgebrochen werden, hat man nur 
die Möglichkeit, entweder die Tasten-Kombination <Control/ 
Shift/ Alternate> zu drücken oder eine spezielle Ab¬ 
bruchbedingung zu stellen. Diese Abbruchbedingung heißt EXIT 
IF (siehe dort). 

Bei allen Schleifenarten ist es möglich, diese ineinander zu ver- 
schachteln. Es kann also in einer Schleife eine weitere, gleich 
welcher Art, aufgerufen werden. 

WHILE IX<10 
INC IX 

FOR J=1 TO 10 
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REPEAT 
INC K 

PRINT «IX = «;IX;« J = ";J;" K = ";K 
UNTIL IC>IX* 10 
NEXT J 
WENO 


Bei Verschachtelungen dieser Art ist darauf zu achten, daß die 
jeweiligen Schleifenwendepunkte (NEXT/UNTIL/LOOP/WEND) 
in der umgekehrten Reihenfolge ihrer Startanweisungen (FOR/ 
REPEAT/ DO/WHILE) gesetzt werden. 


Falsch: REPEAT 

UH ILE A<10 
UNTIL A=10 
UENO 


Falsch: FOR 1=1 To 10 

FOR J=1 To 10 
NEXT I 
NEXT J 


Richtig: REPEAT 

UHILE A<10 
UEND 

UNTIL A=10 


Richtig: FOR 1=1 To 10 

FOR J=1 To 10 
NEXT J 
NEXT I 


Sollten Sie diese Reihenfolge nicht einhalten, wird Ihnen der 
Interpreter bei Programmstart einen "Schwarzen Peter" über¬ 
reichen. 

Diejenigen, die es von anderen BASIC-Interpretern her gewohnt 
sind, Schleifen anhand von GOTO-Anweisungen zu konstruie¬ 
ren, sollten sich frühzeitig angewöhnen, dafür eine der obigen 
Schleifen-Konstruktionen einzusetzen. Dieses hat einen wesent¬ 
lichen Vorteil. GOTO-Anweisungen werden in GFA-BASIC 
nicht als Struktur-Elemente anerkannt. D.h. also, daß Schleifen 
nicht auf Anhieb erkennbar wären, während man GFA-Loops 
sofort an der Zeileneinrückung erkennen kann. 

Standard-BASIC : 

10 A=A+1:Print A;:If A<20 Then Goto 10 

GFA-BASIC: 

Label: ! In diesem Fall würde man 

INC A ! natürlich eine FOR...NEXT* 

PRINT A; ! Schleife verwenden. Hier 
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IF A<20 
GOTO Label 
ENDIF 


! sollen jedoch nur die 
! verschiedenen Strukturen 
f von Schleifen aufgezeigt werden. 


Besser: 


UH ILE A<20 oder 
INC A 
PRINT A; 

UEND 


DO 

INC A 
PRINT A; 

EX IT IF A=>20 
LOOP 


oder REPEAT 

INC A 
PRINT A; 
UNTIL A=>20 


4.15 Vergleichsoperationen 

Bei der vorangegangenen Beschreibung der Schleifenstrukturen 
wurden mehrfach sogenannte Vergleichsoperatoren verwendet. 


< 

> 

<> biw. >< 
<= btw. =< 
>= brw. —> 


Gleich 

Ungefähr gleich (28-Bit-Vergleich) 

Kleiner 

Größer 

Ungleich 

Kleiner oder gleich 
Größer oder gleich 


Diese Operatoren können eingesetzt werden, um zwei Werte oder 
Textausdrücke miteinander zu vergleichen. 

PRINT "ABC ,, > , 'BCD" 


oder 


AS="eins" 
BS="zuei" 
PRINT AS<>BS 


oder 


PRINT 123=234 


oder 
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K %=17356 
B=651423.241 
PRINT A%<B 

Diese Beispiele wirken etwas seltsam, erhalten jedoch dann einen 
Sinn, wenn man weiß, daß als Ergebnis eines Vergleichs immer 
ein Wahrheitswert (0 oder -1) geliefert wird. Die Beispiele 1 und 

3 würden demnach eine Null (falsch) als Ergebnis ausgegeben, 
da der String ABC nicht größer ist als der String BCD und auch 
der Wert 234 nicht gleich dem Wert 123 ist. Die Beispiele 2 und 

4 liefern dagegen eine -1 (wahr), da A$ und B$ tatsächlich un¬ 
gleich (<>) und "A%" kleiner als "B" ist. 

Auch hier ist eine sinnvolle Anwendung der Boole-Variablen 
denkbar, indem man die ermittelten Wahrheitswerte an eine 
solche Variable übergibt. 

Sie werden sich evtl, fragen, wie man denn Textausdrücke auf 
"größer" oder "kleiner" prüfen kann. Das geht folgendermaßen 
vor sich: Sollen zwei Textausdrücke verglichen werden, geht das 
BASIC der Reihe nach alle Zeichen der beiden Ausdrücke durch 
und ermittelt, welches der beiden verglichenen Zeichen den 
größeren ASCII-Wert besitzt. Der Ausdruck, der in einer der 
verglichenen Positionen das Zeichen mit dem größeren ASCII- 
Wert enthält, ist somit der "größere" String. Beim Vergleich 
zweier Strings auf "kleiner" wird das gleiche Verfahren ange¬ 
wandt. Nur ist hier eben der "kleinere" String der, der zuerst ein 
Zeichen enthält, dessen ASCII-Wert kleiner ist als der des ver¬ 
glichenen Zeichens des anderen Strings. 

Haben die beiden Strings ungleiche Längen und hat der Ver¬ 
gleich bis zum Ende des kürzeren Strings keine Unterschiede 
zwischen beiden Strings aufgewiesen, so ist beim Vergleich auf 
"größer" der längere String auch der größere bzw. beim Ver¬ 
gleich auf "kleiner" der kürzere String der kleinere. 

Beim Vergleich von Textausdrücken ist allerdings darauf zu 
achten, daß alle "normalen" Textzeichen einmal in großge¬ 
schriebener Form (A-Z/ASCII 65-90) und einmal kleingeschrie¬ 
ben (a-z/ASCII 97-122) existieren. Um also einen tatsächlich 
gültigen Vergleich auf alphabetische Reihenfolge durchzuführen. 
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müßten beide Textausdrücke vorher vollständig entweder in 
Groß- oder Kleinschrift übertragen werden (siehe UPPERS). 

PRINT "ABC"< l, ABCD"="abc M >"abcd" 

Dieses fiktive Beispiel ist sicher nicht auf Anhieb zu verstehen. 
Zuerst werden die ersten beiden Ausdrücke getestet. Da ABC 
kleiner ist als ABCD, ergibt sich daraus der Wahrheitswert -1. 
Anschließend ergibt sich aus dem Vergleich abc > abcd der 
Wahrheitswert 0. Diese beiden Wahrheitswerte werden nun auf 
Gleichheit getestet. Da sie ungleich sind, wird der Wert 0 (= 
falsch) geliefert. 

Enthalten die Strings auch andere Zeichen als die von A-Z 
(Ziffern, Leerzeichen, Satzzeichen), werden diese nach dem¬ 
selben Schema in den Vergleich einbezogen. Siehe dazu auch 
unter MAX bzw. MIN. 


4.16 Vorfahrtsregeln 

Richtig heißt es natürlich Vorrangregeln oder Prioritäten. Ge¬ 
meint ist damit die Reihenfolge, die verschiedenen arithme¬ 
tischen Operationen ausgeführt werden. Aus der Mathematik 
werden wohl den meisten Konstrukte wie das folgende oder 
ähnliche bekannt sein: 

X=Sqr(12‘3+(36-22‘1.2)-(-4/3))*Sin(13) 

Formeln dieser Art werden nach folgender Rangfolge aufgelöst: 

1. Funktionen: Sqr, Tan, Atn etc. sowie DEFFN-Funktionen. 

2. Klammern: ( ) Erst innere, dann äußere Klammern. 

3. Potenzierung: A 

4. Negation: - 

5. Multiplikation/Division: *, / 

6. Modulo/Ganzahldivision: MOD, DIV od. \ 
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7. Addition/Subtraktion: +, - 

Da auch Vergleichsausdrücke und logische Verknüpfungen in 
dieser Form angegeben werden können, werden diese in die 
Rangfolge mit eingeordnet. 

8. Vergleichsoperatoren: =, ==, <>, >, <, =>, <= 

9. Logische Operatoren: AND,OR,NOT,XOR,IMP,EQV 

PRINT (12‘3+(36-22‘1.2)-(-4/3))*3>14‘3 


oder 


A=(12‘3+(36-22‘1,2)-(-4/3))*3 AND 14‘3 

Werden innerhalb eines arithmetischen Ausdrucks nur gleich¬ 
wertige Operatoren verwendet, werden diese der Reihe nach von 
links nach rechts ausgeführt. Wollen Sie diese Reihenfolge 
durchbrechen, können Sie die Berechnungen, die zuerst behan¬ 
delt werden sollen, in Klammern einfassen. In einer Klammer 
werden die Operationen wieder in der üblichen Rangfolge be¬ 
arbeitet. 


4.17 Fingerübungen 

Im bisherigen Verlauf dieses Kapitels wurden schon einige 
BASIC-Befehle vorgestellt. Da ihre Verwendung sich aus dem 
jeweiligen Zusammenhang ergab, gehe ich davon aus, daß hier 
eine Vorstellung der wichtigsten Grundlagenbefehle und ihrer 
Verwendungsmöglichkeiten angebracht ist. 

Wie in Programmier-Lehrbüchern üblich, besteht das erste Pro¬ 
gramm eines Computerneulings darin, den Satz "Hello World" auf 
dem Bildschirm auszugeben. Ich möchte hier nicht nachstehen, 
wobei ich der Meinung bin, daß in BASIC die Bildschirmaus¬ 
gabe eines beliebigen Textes derart leicht ist, daß ein erheblicher 
Lernerfolg daraus nicht herzuleiten ist. 
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Die Initialisierung und Bedienung des Computers wird Ihnen 
wohl dank der Amiga-Bedienungsanleitung mittlerweile geläufig 
sein. Und wie der GFA-Interpreter gestartet wird bzw. welche 
Bedienungsfunktionen zu beachten sind, wurde Ihnen ja bereits 
weiter vorn erläutert. Sie haben nun - bis auf die zwei Menü¬ 
zeilen am oberen Bildrand - einen leeren Editor-Bildschirm vor 
sich. Der Cursor - das ist das kleine weiße Rechteck oben links 
in der Ecke - zeigt Ihnen an, wo bei der nächsten Tastenbedie¬ 
nung ein Schriftzeichen erscheinen wird. Geben Sie nun bitte 
über die Tastatur ein: 

p "Hello World 

und drücken Sie anschließend die <Return>-Taste. Hier begegnet 
Ihnen gleich ein wesentlicher Vorteil des GFA-BASICs. Die 
meisten Befehle können anhand von Kürzeln eingegeben werden. 
Sie werden bemerkt haben, daß der Interpreter selbständig die 
Eingabe auf 

PRINT "Hello World" 

erweitert hat. Dieser Komfort hat bei einigen Befehlen erheb¬ 
liche Wirkung, da es mit Sicherheit wesentlich schneller geht, 
z.B. statt GRAPHMODE einfach nur "gr" schreiben zu müssen. 

Probieren Sie es aus: Schreiben Sie einfach in die nächste Zeile 
ein "gr 1", drücken Sie die <Return>-Taste, und schon steht da 
GRAPHMODE 1. Fahren Sie nun mit der Cursor-Taste Pfeil 
aufwärts den Cursor eine Zeile aufwärts auf die Graphmode- 
Zeile, drücken Sie <Control>+<y> gleichzeitig, und schon ist die 
zweite Zeile auf Nimmerwiedersehen verschwunden. 

Außerdem müssen bei Texteingaben nur die Einführungszeichen 
gesetzt werden, BASIC erkennt das Textende selbständig. 

PRINT "Text 


oder 


A$="Text 



Basis-BASIC 


63 


Wir haben es bei dem GFA-BASIC-Interpreter mit einem 
äußerst komplexen Programm zu tun, dessen Leistungen erst bei 
längerer Arbeit deutlich werden. 

Ich vergleiche es immer mit einem Qualitätsauto. Der Unter¬ 
schied zwischen drei bestimmten deutschen Autofirmen und 
ihren Konkurrenten besteht meistens in den fast unmerklichen 
Kleinigkeiten - und wenn es nur das Geräusch des Türöffnens 
ist. Bei der einen Marke tut man es, weil man einsteigen will. 
Bei der anderen macht man die Tür wieder zu, um sie noch 
einmal öffnen zu dürfen - das Geräusch ist so schön! Dieses 
Beispiel ist natürlich stark übertrieben, macht jedoch das Wesen 
der Qualität deutlich: Auf die Kleinigkeiten kommt es an. Sie 
werden bei der Arbeit mit GFA-BASIC immer wieder auf 
solche angenehmen Kleinigkeiten stoßen, und es sollte Ihnen bei 
der Entwicklung Ihrer eigenen Programme naheliegen, auf diese 
Kleinigkeiten zu achten. 

Aber weiter mit unserem ersten Programm. Sie haben nun 

mehrere Möglichkeiten, Ihr kleines Programm zu starten. 

1. Sie können mit dem Mauszeiger nach rechts oben in die 
Bildschirmecke auf "Run" fahren und die linke Maustaste 
drücken. 

2. Sie können die <Shift>-Taste und <F10> gleichzeitig 

drücken. 

3. Sie schalten in den Direktmodus um und geben dort den 

Befehl "ru" (Abk. für "Run") ein, gefolgt von der 

<Return>-Taste. 

In jedem dieser Fälle wird der Bildschirm gelöscht, Ihr freund¬ 
licher Gruß oben links auf den Bildschirm geschrieben und eine 
sogenannte Alert-Box mit dem Hinweis "Programmende" ausge¬ 
geben. Nachdem Sie nun die <Return>-Taste gedrückt oder mit 
dem Mauszeiger auf "Return" geklickt haben, kehrt der Inter¬ 
preter wieder zum Eingabe-Editor zurück. Damit dürfte eigent¬ 
lich der Grundstein für Ihre Programmiererkarriere gelegt sein. 
Alles andere ist nur Übung. 
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Das Spiel, das wir oben veranstaltet haben, ist im eigentlichen 
Sinne noch nicht als Programm zu bezeichnen. Bei einer ein¬ 
fachen PRINT-Anweisung handelt es sich lediglich um einen 
einzelnen Programmschritt. Erst das sinnvolle Aneinanderreihen 
von mehreren Programmschritten bildet ein Programm. 

Für den Anfang kann es jedoch nützlich sein, sich nach und 
nach mit den Möglichkeiten vertraut zu machen. Um ein wenig 
zu probieren, klicken Sie mit dem Mauszeiger im Menükopf des 
Editors das Feld "Direct" an. Sie sehen jetzt am linken unteren 
Bildrand die Eingabeaufforderung "OK >". Dies ist der soge¬ 
nannte Direkt- oder Kommandomodus. Auf dieser Ebene haben 
Sie nicht die Möglichkeit, Programme zu schreiben, sondern Sie 
können jeweils nur eine Befehlszeile (max. 255 Zeichen) ein¬ 
geben, die nach Druck auf die <Return>-Taste direkt ausgeführt 
wird. Geben Sie bitte ein: 

OK >p "Hello World 

Im Ausgabefenster erscheint nun: 

Hello World 


Sie sehen, daß jeder Befehl sofort nach <Return> ausgeführt 
wird. Im Direktmodus haben Sie also eine gute Möglichkeit, erst 
einmal einige Befehle in Ruhe auszuprobieren. Es gibt zwar Be¬ 
fehle, die hier nicht ausführbar sind (Befehle, die mehr als eine 
Zeile für ihre korrekte Struktur benötigen), aber zur Übung ist 
der Direktmodus bestens geeignet. Versuchen Sie es noch einmal: 

OK >a 1,"Meine erstejAlert-Box",1Na jtoll",a 

und nun <Return> drücken. So einfach ist das! Wenn Sie genug 
geübt haben, gelangen Sie durch <Esc> oder durch Drücken der 
Abbruchtasten <Control/Shift/Alternate> wieder zurück in den 
Editor. 

Wieder im Editor? Gut, dann schreiben Sie nun Ihr erstes richti¬ 
ges Programm. Das wichtigste an einem Programm sind in jedem 
Fall die Eingabe- und Ausgabe-Anweisungen. Sicher sind andere 
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Befehle auch wichtig, aber ohne die E/A-Befehle (in Engl.: I/O 
= Input/Output) geht gar nichts. Also werden wir damit begin¬ 
nen: 


REPEAT 

CLS 

INPUT "Uie heissen Sie ".-Name* 

INPUT "Uie alt sind Sie ";AlterX 
PRINT "Drücken Sie bitte <Return>" 

UNTIL INKEY$=CHR$(13) 

PRINT "Ihr Name ist also ";Name$ 

PRINT »Sie sind ";AlterX;" Jahre alt." 

Innerhalb der REPEAT...UNTIL-Schleife wird Ihr Name und 
Alter erfragt. Zuvor wird durch CLS der Bildschirm gelöscht 
und der Cursor in die linke, obere Bildschirmecke gebracht. Im 
Anschluß an die Eingaben, die jeweils durch <Return> abzu¬ 
schließen sind, werden die Daten in Variablen gespeichert: der 
Name als STRING in einer String-Variablen und das Alter als 
numerischer Wert in einer Integervariablen. Danach werden Sie 
durch den PRINT-Befehl aufgefordert, nochmals <Return> zu 
drücken. In die UNTIL-Bedingungsabfrage wurde ein zweiter 
Eingabe-Befehl eingebunden, der auf eine einzelne Taste wartet. 
Wird nun <Return> (ASCII-Wert = 13) gedrückt, wird die 
Schleife verlassen und Ihre Eingabe - mit einem Kommentar 
versehen - wieder ausgegeben. Drücken Sie eine andere Taste, 
wird die Schleife wiederholt, indem zuerst der Bildschirm 
wieder gelöscht wird und das Spiel von vorn beginnt. 

An den beiden abschließenden PRINT-Befehlen ist zu erkennen, 
daß die Ausgabe variiert werden kann. Durch das Format-Sym¬ 
bol können PRINT-Ausgaben verkettet werden. Dabei ist es 
egal, in welcher Reihenfolge die Ausdrücke stehen. Eine 
PRINT-Zeile kann z.B. auch so aussehen: 

A$="Text" 

PRINT LEN(AS)" "AS;" in GFA-";CHR$(66);"ASIC", CRSCOL 1 INKEYS; 

Eine solche Zeile kann also sehr bunt gemischt sein. Oben wird 
zuerst die Variable A$ mit dem Text Text initialisiert. Mit 
LEN(A$) wird die Länge des in A$ gespeicherten Textes, der 
Inhalt von A$ selbst, ein direkter String-Ausdruck (in GFA-), 
ein einzelnes ASCII-Zeichen (ASCII 66 = B), wieder ein Direkt- 
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String (ASIC), die aktuelle Cursor-Position (CRSCOL) und zu 
guter Letzt eine Tastaturabfrage (INKEYS) in die Zeile einge¬ 
bunden. Während(!) der Textausgabe werden die integrierten 
Funktionen bearbeitet, und nach Erledigung wird ihr Ergebnis 
ebenfalls ausgegeben. So wird die Tastaturabfrage INKEYS erst 
bearbeitet, nachdem schon der übrige Text angezeigt wurde. Es 
sind generell alle Funktionen (ergebnisliefernde Operationen) in 
einer PRINT-Zeile einsetzbar. 

Zur Verkettung der Ausdrücke wurden außerdem noch zwei 
weitere Format-Symbole verwendet. Ein Komma zwischen den 
Ausdrücken bewirkt, daß die darauffolgende Ausgabe an der 
nächsten von 5 Tabulatorpositionen erfolgt (siehe PRINT). Ein 
Apostroph dagegen gibt nur ein einzelnes Leerzeichen an der 
Position aus, an der es im Ausdruck steht. Das Semikolon haben 
Sie oben schon kennengelernt. In diesem Fall wurde es ganz am 
Ende der Zeile eingesetzt, um zu erreichen, daß die nächste 
PRINT-Ausgabe (bzw. auch OUT und WRITE) oder INPUT- 
Eingabe (oder auch INP, INPUTS etc.) direkt hinter dem zuletzt 
angezeigten Text positioniert wird. Durch 

PRINT AT(10,10); 

INPUT »Eingabe: »,AS 

können Sie also auch die Position von Eingabe-Anweisungen 
bestimmen, wobei jedoch nach erledigter Eingabe der Cursor 
generell an den Anfang der nächsten Zeile zurückspringt. Im 
letzten Beispiel habe ich Ihnen wieder zwei neue Varianten vor¬ 
gestellt. Durch den Zusatz AT(X,Y) kann die Cursor-Position 
beliebig auf dem Bildschirm bestimmt werden (siehe PRINT). 
Außerdem habe ich in der INPUT-Zeile ein Komma hinter den 
Eingabekommentar eingesetzt, um damit zu erreichen, daß die 
Eingabe ohne Frage- und Leerzeichen direkt hinter dem Kom¬ 
mentar beginnt. Vergleichen Sie: 

INPUT "Eingabe: ";A$ 

INPUT "Eingabe: »,AS 

Unter den Befehlsbeschreibungen finden Sie noch weitere E/A- 
Befehle, die an Möglichkeiten fast keine Wünsche mehr offen 
lassen. Versuchen wir uns nun ein wenig an der Grafik. 
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Möchten Sie lieber Kreise oder Rechtecke zeichnen? Oder viel¬ 
leicht eine Freihandlinie? Alles kein Problem! Fortschrittliche 
BASIC-Dialekte haben selbstverständlich ein reichhaltiges Ange¬ 
bot an grafischen Befehlen. Das ist ganz und gar nicht so selbst¬ 
verständlich, wie es uns heutzutage erscheint. Vor nur wenigen 
Jahren mußten die Algorithmen dazu noch per Hand geschrieben 
werden - und wer weiß schon aus dem Stehgreif, wie ein Kreis 
oder eine Ellipse konstruiert wird. 

Wir haben es da einfach. In der Befehlsliste im Anhang finden 
Sie eine Fülle von Grafikbefehlen, deren Bedienung denkbar 
einfach ist. Unser Bildschirm ist in Hires (High Resolution = 
hohe Auflösung) in 640 Bildpunkte horizontal und 256 Bild¬ 
punkte vertikal eingeteilt. Der Bildpunkt mit der Koordinate 0/0 
liegt üblicherweise (siehe OPENW) in der äußersten linken, 
oberen Bildschirmecke. Durch dieses Wissen läßt sich nun jeder 
einzelne Bildschirmpunkt auch einzeln benennen. Sie müssen 
sich also nur entscheiden, an welcher Bildschirmposition Sie ein 
Grafik-Objekt sehen möchten, übergeben dem Befehl die ent¬ 
sprechenden Koordinaten, und schon erscheint das Objekt. Die 
folgende Zeile zeichnet eine Ellipse, deren Zentrum ziemlich 
genau in der Mitte des Bildschirms liegt: 

ELLIPSE 310,120,300,110 

Die ersten beiden Parameter bestimmen die Position, der dritte 
den horizontalen Radius und der vierte den vertikalen Radius 
der Ellipse. Diese Koordinatenangaben beziehen sich - wie ge¬ 
sagt - auf Hires. Beim Amiga gibt es aber zwei Auflösungs¬ 
stufen. Die zweite ist Lowres (Low Resolution = niedrige Auf¬ 
lösung) mit 320 horizontalen und 256 vertikalen Punkten. Mit 
diesen Informationen und den Beschreibungen der Befehle wer¬ 
den Sie sicherlich keine größeren Probleme mit der Grafik 
haben. 

Malen Sie doch mal ein kleines Bild mit dem folgenden Pro¬ 
gramm. 
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DEFFILL ,2,4 
DO 

REPEAT 

UNTIL MOUSEK 
MOUSE x,y,k 
REPEAT 

MOUSE xx.yy.k 
IF MOUSEK=1 
LINE x.y.xx.yy 
x=xx 

y=yy 

ENDIF 

IF MOUSEK=2 
flag!=TRUE 
GRAPHMOOE 3 
BOX x.y.xx.yy 
BOX x.y.xx.yy 
GRAPHMOOE 1 
ENDIF 

IF MOUSEK=3 
flag!=FALSE 
FILL xx,yy 
ENDIF 

UNTIL MOUSEK=0 
IF flag!=TRUE 
flag!=FALSE 
BOX x.y.xx.yy 
ENDIF 
LOOP 


Füllmuster einstellen 
Hauptschleifenstart - 

1. REPEAT-Schleife -. 

wartet auf Mausklick - 1 

Mauskoordinaten in X.Y 

2. REPEAT-Schleife -. 

Neue Koordinaten in Xx.Yy 
Linke Maustaste? 

Dann Linie zeichnen 
Neue Koordinaten werden 
Alte Koordinaten 

Rechte Maustaste? 
merken 

Grafikmodus XOR 
Box zeichnen 
Box löschen 
Grafikmodus Replace 

Beide Maustasten? 

Merker löschen 
Ab Mausposition füllen 

Maustaste losgelassen? -- 1 
Merker für Maustaste 2? 
Merker löschen 
Box nochmal zeichnen 

Zurück zum Anfang - 


Hier finden Sie gleich ein Beispiel für den Einsatz von Flags. 
Flag! ist hier eine völlig beliebige Boole-Variable, die die Auf¬ 
gabe hat, sich zu merken, ob in der 2. REPEAT-Schleife die 
rechte Maustaste gedrückt wurde. Wurde sie das, wird im XOR- 
Modus zweimal eine Box auf dieselbe Stelle gezeichnet. Das hat 
den Effekt, daß die Box bei jedem Durchlauf nur für einen 
kurzen Moment zu sehen ist. Wird die rechte Maustaste wieder 
losgelassen, wird anschließend die Box noch einmal im 
REPLACE-Modus (siehe GRAPHMODE) gezeichnet. 

Achten Sie bitte darauf, daß Sie, wenn Sie den Füllprozeß mit 
beiden Maustasten gleichzeitig auslösen wollen, zuerst die rechte 
und dann die linke Taste drücken, da sonst im Linienmodus 
schon ein Punkt gezeichnet wird, ehe der Füllprozeß beginnt. 
Dazu eine kleine Spielerei: 
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PLOT 320,128 ! Linienstart 

FOR i=0 TO 200 STEP 0.1 ! lOtel-Step-Schleife -. 

ADD a,0.1 ! Radius vergrößern 

x%=320+COS(i)*a*1.6 ! X-Koordinate 

yX=128+SIN(i)*a ! Y-Koordinate 

DRAU TO xX.yX I Linie zeichnen 

NEXT i ! Nächster Schritt -' 

Beachten Sie hier, daß die FOR...NEXT-Schleife mit einer 
Realvariablen (1) läuft, da Integervarialen nur Ganzzahlen auf¬ 
nehmen können. Mit einer Integer-Zählvariablen würde das Pro¬ 
gramm lediglich eine gerade Linie zeichnen und unendlich 
weiterlaufen, da die Zählvariable immer wieder auf Null gesetzt 
würde. Die Linie ergibt sich dann ausschließlich aus der Erhö¬ 
hung des Radius durch den Real-Faktor "A". 

Soweit zur Einführung in die Programmiersprache GFA-BASIC 
und in die Hintergründe und Grundlagen der Computer-Pro¬ 
grammierung. Es ist mir nicht immer leicht gefallen, die richti¬ 
gen Worte zu finden, um ein Thema auch - und gerade - für 
den Computer-Anfänger verständlich und durchschaubar werden 
zu lassen. Ich habe es jedenfalls nach besten Kräften versucht 
und hoffe, daß Ihnen dieses Rüstzeug auf Ihrem weiteren Weg 
in der "hohen Schule" der Programmierkunst ein Stück helfen 
wird. 

Sie finden zudem im Verlauf des Buches immer wieder kleine 
Einschübe, die dazu beitragen sollen, Ihre hier erworbenen 
Kenntnisse zu vertiefen. Noch ein kleiner Tip zum Schluß. 
Setzen Sie sich in der Anfangszeit so viel wie möglich mit frem¬ 
den Programmen auseinander. Achten Sie dabei darauf, daß 
diese in ihrer Komplexität ungefähr Ihrem Wissensstand ent¬ 
sprechen, und verändern Sie sie geringfügig. 
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5. Ein-/Ausgabebefehle 

5.1 Dateneingabe 


FORM INPUT { F } Formatierte String-Eingabe 


FORM INPUT Anz,Var$ 

Eine Kombination aus INPUT- und INPUTS-Befehl ist der 
FORM INPUT-Befehl. Sie können damit eine maximale Länge 
des einzugebenden Textes vorherbestimmen. Die größtmögliche 
Länge des Strings liegt bei 255 Zeichen. Wird vom Anwender 
die vorgesehene String-Länge erreicht, bleibt der Cursor an der 
letzten Stelle stehen. Die Eingabe kann also nur durch <Return> 
abgeschlossen werden. Veränderungen am Text sind auf die 
gleiche Art und Weise möglich, wie unter INPUT beschrieben. 
Das gleiche gilt für die Eingabe von Sonderzeichen. Die Angabe 
einer Variablenliste oder eines vorangestellten Textes ist hier al¬ 
lerdings nicht möglich. Es wird generell der Cursor auf die erste 
Stelle des Eingabebereichs gesetzt. Beispiel: 

FORM INPUT 32,TextvarS 

Positionieren können Sie den Eingabebereich übrigens, wie auch 
bei INPUT und LINE INPUT, indem Sie mit 

PRINT AT(XP,YP); 

den Cursor an die Stelle bringen, an der das erste Zeichen der 
Eingabe erscheinen soll. Durch das dem PRINT-Befehl nachge¬ 
stellte Semikolon wird der Wagenrücklauf (CR = Carriage 
Return) und der Zeilenvorschub (LF = Line Feed) unterdrückt. 
Das nächste Zeichen einer Ausgabe wird dann an die Position 
direkt hinter dem zuletzt ausgegebenen Zeichen gesetzt. 
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FORM IN PUT AS Formatiert© String-Eingabe m. Vorgabe 
{FAS} 


FORM INPUT Anz AS Var$ 


Hier gilt grundsätzlich das gleiche wie bei FORM INPUT. Nur 
daß hier der Inhalt einer String-Variablen auf dem Bildschirm 
ausgegeben und die nachträgliche Edition des darin enthaltenen 
Strings (oder eines Teils davon) ermöglicht wird. "Anz" enthält 
die Anzahl der Zeichen ab Anfang des Vorgabe-Strings, die zur 
Edition ausgegeben werden sollen. Nach erneuter Eingabe und 
Bestätigung durch <Return> wird der neu entstandene String in 
die Variable übernommen. Der vorherige Variableninhalt wird 
komplett ersetzt. Wird mit ’Anz’ die Länge der angegebenen 
Variablen nicht überschritten, muß vor der Edition anhand der 
<Delete>-Taste Platz zur Eingabe geschaffen werden. Bei An¬ 
gabe einer Leervariablen erfüllt dieser Befehl dieselbe Funktion 
wie FORM INPUT. Beispiel: (in Verbindung mit MID$()= und 
MID$) 


A$="String vor der Eingabe!" 
BS=Mid$(A$,8,3) 

Print At(10,10);"=> ";A$;" => 
Form Input 7 As BS 
Mid$(A$,8,Len(B$))=B$ 

Print At(10,10);"=> ";A$;Spc(15) 


! Beliebiger String 
! 3 Zeichen austremen 
! Eingabe positionieren 
! 8 Zeichen zur Eingabe 
! Eingabe einfügen 
! String ausgeben 


INKEY$ 


Einzelzeichen von Tastatur holen 


Zeichens = INKEY$ => Zeichen-Zuweisung 
[IF/WHILE/UNTIL] LEN(INKEYS) => Bedingung: lnkey$ >“ 
[IF/WHILE/UNTIL] INKEY$ = "Z" => Bedingung: - Z' gedrückt 

Mit INKEYS können nicht nur die normalen Tastenbelegungen 
erfragt werden, sondern auch alle Sondertasten (z.B. Fl - F10 
und Cursor-Block). Zusätzlich werden fast alle Kombinationen 
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von <Control>, <Shift> oder <Alternate> mit anderen Tasten re¬ 
gistriert. So lassen sich die Funktionstasten in Kombination mit 
der Shift-Taste doppelt belegen. Die Funktion schaltet intern auf 
einen anderen Modus um, sobald Sondertasten bzw. ihnen ent¬ 
sprechende Tastenkombinationen gedrückt werden. Im Normal¬ 
fall wird ein Ein-Zeichen-String zurückgegeben, der das der ge¬ 
drückten Taste entsprechende ASCII-Zeichen beinhaltet. Bei 
Sondertasten wird dagegen ein Mehr-Byte-String zurückgegeben, 
der die sogenannte CSI-Sequenz der Taste enthält. Diese wird 
durch ein CHR$(155) eingeleitet, gefolgt von ein bis drei 
weiteren Zeichen. Wird im Moment der INKEY$-Abfrage keine 
Taste gedrückt, wird ein Leer-String ("") geliefert. Beispiel: 


PRINT "Testen Sie beliebige Tasten und Tastenkombinationen 
PRINT 11 (Abbruch durch <Esc>)" 


DO 

REPEAT 

key*=INKEY* 

UNTIL key*>"" 

PRINT AT(10,10);" 
PRINT AT(10,10); 

IF LEN(keyS)=1 
PRINT "ASCII : "; 

PRINT ASC(keyS) 
ELSE 


! Große Schleife 
I Eingabeschleife 
I Abfrage 

I bis Taste gedrückt ist 

! Ausgabe positionieren 
I Ein-Byte-Code 


! Mehr-Byte-Code 


II 


II 


PRINT "CSI-Sequenz : «; 

FOR iX=1 TO LEN(key*) 

PRINT ASC(MIDS(key*,iX));» »; 

NEXT iX 
ENDIF 

EXIT IF key*=CHR$(27) ! Abbruch bei <Esc> 

LOOP I Schleifenende 


Da gibt es allerdings ein Problem. Der Tastatur-Puffer hat die - 
manchmal unangenehme - Eigenart, sich die Tasten, die ge¬ 
drückt wurden, zu merken. Und zwar alle! Das führt dazu, daß 
- wenn man ganz kontrolliert nur einen Tastendruck zulassen 
will - über INKEYS alle Zeichen ausgegeben werden, die im 
Tastaturspeicher evtl, durch einen Dauertastendruck gespeichert 
wurden. Dieses Problem läßt sich beseitigen, indem man nach 
der INKEYS-Abfrage eine kleine Schleife einbaut, die den 
Tastaturpuffer leert. 

Repeat 

Until InkeyS="" 
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Um eine Einzeltastenabfrage durch INKEY$ zu realisieren (z.B. 
in einem alphanumerisch indizierten Menü), kennt man aus 
anderen BASICs die Variante 

100 A$=Inkey$:If AS="" Then Goto 100 

Diese Konstruktion wird in GFA-BASIC ersetzt durch: 

Repeat 

Until LentInkeyS) 


oder 


Repeat 

Until InkeySo"" 

Sie hat die gleiche Aufgabe, nämlich darauf zu warten, daß 
irgendeine Taste auf dem Keyboard gedrückt wird. Um eine 
bestimmte Taste zu erfragen, gibt es in anderen BASIC-Dia- 
lekten die altbekannte Möglichkeit: 

100 AS=Inkey$: I f ASo"b" Then Goto 100 

Das gleiche in GFA-BASIC: 

Repeat Until lnkey$="b" 

Damit kann also kontoliiert werden, ob eine bestimmte Taste 
(hier: b) gedrückt wurde. Wird eine andere Taste gedrückt, 
bleibt das Programm in der Warteschleife. 


Dateneingabe 


INPUT {INP } 


INPUT ["Text";,] Varl [,Var2,...] 
INPUT #Kanal,Var1 [,Var2,...] 


Dieses ist der noch am meisten verwendete Befehl zur Eingabe 
von Werten oder Strings an das Programm. Im Anschluß an 




Ein-/Ausgabebefehle 


75 


diesen Befehl kann eine Text-Konstante angegeben werden, die 
vor der ersten Eingabestelle erscheinen soll. 

Nach einem Komma oder Semikolon wird dann die Werte- oder 
Textvariable angegeben, die die eingegebenen Daten aufzu¬ 
nehmen hat. Der Unterschied zwischen der Angabe eines Kom¬ 
mas oder eines Semikolons ist der, daß bei einem Semikolon 
nach dem Befehl bzw. nach dem eingefügten Text ein Leer- und 
ein Fragezeichen erscheint, während beim Komma direkt nach 
dem Befehl oder Text der Cursor erscheint und dort die Eingabe 
beginnen kann. 

Sollen mehrere Werte oder Strings über einen Input-Befehl ein¬ 
gegeben werden, können Sie durch Kommas getrennt eine Liste 
der dafür vorgesehenen Variablen anfügen. Der Befehl ist dann 
erst abgeschlossen, wenn für jede angegebene Variable die ent¬ 
sprechenden Daten eingegeben wurden. Dabei ist es sogar mög¬ 
lich, verschiedene Variablentypen zu verwenden. Sie können so¬ 
mit also mit einem Input-Befehl gleichzeitig Werte und Text er¬ 
fragen. Weisen Sie jedoch dem angegebenen Variablentyp nicht 
die entsprechenden Daten zu (bei numerischen Variablen Text 
oder umgekehrt), wird ein akustisches Signal ausgegeben (außer¬ 
dem blinkt der Bildschirm kurz auf), und die Eingabe kann 
wiederholt werden. 

Jede einzelne Eingabe kann bei Mehrfach-INPUT entweder 
durch <Return> abgeschlossen werden, oder Sie können die 
Daten innerhalb einer Zeile jeweils durch ein Komma von¬ 
einander trennen. Bei Trennung durch <Return> wird dann al¬ 
lerdings der Cursor an den Anfang der nächsten Bildschirmzeile 
gesetzt und dort auf die nächste Eingabe gewartet. 

Möchten Sie Kommas in der Eingabezeile verwenden, ohne daß 
dadurch zur nächsten Variablen weitergeschaltet wird, erreichen 
Sie dies, indem Sie die betreffende Antwort in Anführungs¬ 
striche setzen. Bei Verwendung einer einzelnen String-Auf¬ 
nahmevariablen und Verwendung von Kommas, ohne daß die 
Antwort in Anführungsstriche gesetzt wurde, wird die Antwort 
bei dem ersten auftretenden Komma abgeschnitten und nur 
dieser vordere String-Teil der Variablen zugeordnet. Beispiel: 
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Print At(10,10); 

Input "Eingabe Wert,String,Wert: ",AX,BS,CX 
Print AX,B$,CX 

Bei String-Eingaben sind Strings mit einer Länge von bis zu 25: 
Zeichen möglich. Während der Eingabe können Sie die schoi 
eingegebenen Daten auf verschiedene Weise korrigieren: 

<Backspace> = Zeichen links vom Cursor löschen 
<Delete> = Zeichen unter dem Cursor löschen 

<Pfeil-links> = Cursor um eine Stelle nach links 
<Pfeil-rechts> = Cursor um eine Stelle nach rechts 

(sofern er nicht am Zeilenende steht) 

<Pfeil-hoch> = Cursor zum Zeilenanfang 
<Pfeil-runter» = Cursor zun Zeilenende 

Wollen Sie bei der Eingabe Sonderzeichen verwenden, gibt e 
dazu zwei Möglichkeiten: 

1. <Alternate> und andere <Taste> 

2. <Amiga> und andere <Taste> 

Wie bei PRINT gibt es auch hier die Kanal-Variante. Mi 
INPUT # und der daran anschließenden Nummer des ge¬ 
wünschten Datenkanals können auch Daten aus Diskettendateiei 
bzw. über die Schnittstellen (siehe OPEN) bezogen werden 
Beispiel: 

Open "I»,#1,»DATEI.DAT» 

Input #1,A$,B$,C$ 


oder: 


Open "",#1,"CON:" 

Input #1,A$,B$,C$ 

Bei diesen Beispielen muß allerdings gewährleistet sein, daß die 
aus der Datei gelesenen Daten auch zu den vorgegebenen Vari¬ 
ablentypen passen. 
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Zeichenketteneingabe 


INPUT$() 


A$ = INPUT$(Anz) 

A$ = INPUT$(Anz,#Kanal) 

Wollen Sie, daß Strings "verdeckt" eingegeben werden, können 
Sie das mit dieser Eingabe-Funktion erreichen. Anders als bei 
allen anderen Input-Arten wird hier die aufnehmende Variable 
nicht dem Befehl nachgestellt, sondern der String wird einer 
Variablen zugewiesen (A$=INPUT$(10)), direkt nach Abschluß 
der Eingabe ausgegeben (PRINT INPUT$(10)) oder in eine Ab¬ 
frage eingebunden (IF INPUT$(4)="xxxx"). 

Der Funktion wird in Klammern eine Zahl übergeben, die an¬ 
gibt, wie viele Zeichen maximal eingegeben werden können. 
Wird diese Zeichenanzahl erreicht, wird das Programm, ohne auf 
die Betätigung der <Return>-Taste zu warten, fortgesetzt. Der 
eingegebene Text ist während der Eingabe nicht zu sehen. Kor¬ 
rekturen an der Eingabe sind auf dieselbe Art wie bei INPUT 
möglich. 

Auch hier gibt es die Kanal-Variante (A$=INPUT$(10,#1)). 
Dieser Befehl eignet sich besonders dazu, eine bestimmte 
Datenmenge aus einer Diskettendatei zu lesen. Um zum Beispiel 
eine ganze Datei in einen String einzulesen (vorausgesetzt, sie ist 
nicht länger als die maximale String-Länge von 32767 Byte), 
können Sie folgendes Mini-Programm verwenden (siehe auch 
BGET# bzw. LINE INPUT#): 

Open H l",#1 < "Datei.Dat" 

AS=Input$(Min(32767,Lof(#1)),#1) 

Close #1 
Print A$ 

Sie müssen hierbei die Länge der Datei nicht kennen, da sie 
durch LOF() ermittelt wird. Um die maximal mögliche String- 
Länge (32767 Zeichen) nicht zu überschreiten, wird die einzu¬ 
lesende Zeichenanzahl durch MIN() auf diese maximale Anzahl 
begrenzt. 
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LINE INPUT { LI } Zeichenketteneingabe 


LINE INPUT ["Text";,] Var$ [Var2$,...] 

LINE INPUT #Kanal, Var$ [Var2$,...] 

Der LINE INPUT-Befehl ist ein direkter Nachkomme des nor¬ 
malen INPUT-Befehls. Sie unterscheiden sich dadurch, daß 
LINE INPUT ausschließlich für die Texteingabe zu verwenden 
ist, und daß bei Angabe einer Variablenliste die Eingaben alle 
einzeln mit <Return> abgeschlossen werden müssen. Während bei 
INPUT durch die Eingabe eines Kommas kenntlich gemacht 
wird, daß nun die nächste Variable in der Liste bedient wird, 
wird hier das Komma als Textzeichen innerhalb des einge¬ 
gebenen Strings anerkannt. Genauso wie bei INPUT kann auch 
hier ein Text-String übergeben werden, der dann vor dem ersten 
einzugebenden Zeichen erscheint.Beispiel: 

Line Input "Bitte Text eingeben: ",Aa$ ( BbS,Cc$ 


Durch Verwendung eines Kommas oder Semikolons zwischen 
dem Befehl (bzw. Text) und der Variablen (bzw. Variablenliste) 
kann auch hier bestimmt werden, ob ein Leerzeichen und ein 
Fragezeichen vor der ersten Eingabestelle erscheinen soll oder 
nicht. Editionsmöglichkeiten wie bei INPUT. 

Die zweite Syntaxform liest die Daten aus der in Kanal ange¬ 
gebenen Datei oder Schnittstelle (siehe OPEN). Hier erklärt sich 
auch, warum dieser Befehlsname mit LINE beginnt. Befinden 
sich nämlich innerhalb des eingelesenen Textes keine CRs oder 
LFs, bzw. zwischen einem CR/LF und dem nächsten liegen 
mehr als 254 Zeichen, wird der Text nach maximal 254 Zeichen 
automatisch abgeschnitten und der betreffenden Variablen zuge¬ 
ordnet. Texteingaben mit mehr als 254 Zeichen (254+CR+LF = 
256 = max. Zeilenlänge) sind nicht möglich. 

Sind im Text Zeichen mit einem ASCII < 32 enthalten, die keine 
Zeilentrennzeichen (CR/LF) sind, sind Fehleingaben möglich. 
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Etwas verwirrend ist, daß in Fällen, in denen nur ein Carriage 
Return zur Zeilentrennung verwendet wurde, dies zwar insoweit 
erkannt wird, daß nur der vordere Teil des Textes bis zum 
ersten CR an die Variable übergeben wird, jedoch der File- 
Pointer um die gesamte Anzahl der gelesenen Zeichen weiterge¬ 
setzt wird. 

Folgerung: LINE INPUT# ist nur für ASCII-Text (ASCII >31) 
- mit CR+LF als Zeilentrennung - korrekt einsetzbar. 


5.2 Datenausgabe 


PRINT { ? Oder P } Daten ausgeben 


PRINT [AT(S,Z)][,’] ,, Text"[[;,’]Var[;,’]Expr...;] 

PRINT [#Kanal,[;]] "Text"[[;,’]Var[;,’]Expr...;] 

Mit PRINT läßt sich fast alles auf den Bildschirm schreiben. Er 
ist einer der Tausendsassa-Befehle die man in BASIC kennt. Um 
seinen Variantenreichtum ausloten zu können, wird es Ihnen 
nicht erspart bleiben, ihn in verschiedenen Fällen bei der Arbeit 
zu beobachten. Probieren Sie ihn also fleißig aus. Beispiel: 

A %=1 

A$="- Demo" 

Print At(1,12); 

Print Chr$(27);"p";" PRINT"'AS,A%,"Taste: »; 

Print "! l, ;Chr$(27);"q";At(1,13); 

Print String$(40,Left$(A$)) 

In diesen bunt zusammengesetzten PRINT-Befehlen haben die 
einzelnen Komponenten folgende Bedeutung: 

At(XP,YP) 

Mit diesem wahlfreien Zusatz können Sie bestimmen, an welcher 
Cursor-Position die Ausgabe erfolgen soll. Das Ausgabefenster 
besteht, von der Home-Position aus gezählt, aus 77 Spalten und 
28 Zeilen (XP= l-77/YP= 1 - 28). 
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Dasselbe wird auch durch LOCATE erreicht (siehe dort). 
AT(XP,YP) kann - wie im Beispiel gezeigt - auch innerhalb der 
Ausgabezeile eingesetzt werden, wodurch mit einem PRINT 
verschiedene Bildschirmpositionen bestimmbar sind. 

; (Semikolon) 

Dieses Zeichen dient dazu, verschiedene Ausdrücke miteinander 
zu verbinden. Der nach diesem Zeichen stehende Ausdruck wird 
dann direkt an den vorhergehenden angeschlossen. Wenn das 
Semikolon als Schlußzeichen eingesetzt wird, wird auch der erste 
Ausdruck des nächsten PRINT-Befehls an den zuletzt ausge¬ 
gebenen PRINT-Ausdruck angehängt, da Carriage Return und 
Line Feed (CR/LF = Wagenrücklauf/neue Zeile) in diesem Fall 
unterdrückt werden. 

, (Komma) 

Wird das Komma eingesetzt, dann wird der folgende Ausdruck 
an den nächsten von 5 Tabulatorpunkten hinter der letzten Aus¬ 
gabe gesetzt. Diese Punkte haben die X-Positionen 1,17,33,49,65. 

’ (Apostroph) 

Ein Apostroph steht als Leerzeichen. Es werden also in der 
Bildschirmausgabe überall dort Leerzeichen gesetzt, wo sie durch 
dieses Zeichen vorgegeben wurden. 

Außerdem wurden String- und numerische Funktionen in die 
Zeilen eingebaut, um zu zeigen, daß Funktionen problemlos 
direkt in die PRINT-Ausgabe integriert werden können. Beach¬ 
ten Sie dazu die jeweilige Funktionsbeschreibung unter CHR$(), 
STRING$(), LEFT$() etc. 

Ein direkt angegebener Text ist vor dem ersten Textzeichen mit 
Anführungszeichen zu versehen (Print "text), da sonst der Text 
ggf. als Variable ohne Inhalt interpretiert wird. Folgt auf den 
Text nichts mehr, setzt der Interpreter die Ausführungszeichen 
am Ende selbständig. 
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Ein einzelner PRINT-Befehl ohne nachgestellte Ausdrücke be¬ 
wirkt den Ausdruck einer Leerzeile (CR/LF). Eine Variante des 
Print-Befehls ist PRINT #. In diesem Fall folgt auf das Num¬ 
mernzeichen eine Zahl, die den anzusprechenden Datenkanal an¬ 
gibt. Wenn Sie also in eine geöffnete Diskettendatei etwas hin¬ 
einschreiben möchten, ist das hiermit möglich (z.B. 
Print# 1;"BASIC"). 


PRINT US!NG { P USING } Daten formatiert ausgeben 


PRINT USING "format",Expr [,Var,...][;] 

PRINT USING Formats,Expr [,Var,...][;] 

PRINT #Kanal,USING B format",Expr [,Var,...][;] 

Durch diesen Befehl kann ein Ausgabeformat für Werte und 
Strings bestimmt werden. Ihm folgt als erstes ein String oder 
eine String-Variable, in der das gewünschte Format angegeben 
wird. Als nächstes werden nach einem Komma die Ausdrücke 
oder Variablen übergeben, die diesem Format entsprechen sollen. 
Werden mehrere Ausdrücke angegeben, müssen diese durch 
weitere Kommas getrennt werden. Als Formatierungszeichen 
sind vorgesehen: 

# Platzhalter für eine Ziffer: 

Print Using "######",Int(31421/3) 

Ausgabe: 10473 


. Position des Dezimalpunktes: 

Print Using "######.####",31421/4 

Ausgabe: 7855.2500 


f Ausgabe auch des positiven Vorzeichens: 
Print Using "+######.####",31421/4 


Ausgabe: + 7855.2500 
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- Platzhalter für negatives Vorzeichen: 

Print Using »-#####.######»,31421/-4 

Ausgabe: - 7855.250000 

* Füllzeichen für alle angegebenen Vorkommastellen, die nicht 
von dem auszugebenden Wert belegt werden. Sonst wie #. 

Print Using ''*######.####",31421/1.4 

Ausgabe:**22443.57i4 

Hinter dem Dezimalpunkt verwendet, werden so viele * ausge¬ 
geben, wie angegeben sind, und die auszugebende Zahl wird real 
auf die gewünschte Stelle gerundet. 

Print Using "*######.#****",31421/1.4 
Ausgabe:**22443.6**** 


$ Voranstellung eines $: 

Print Using "$######.##",31421/1.4 

Ausgabe: $22443.57 

, Einfügen eines Kommas (Tausendertrennung): 

Print Using "##,###,###.###",3142*2781.71 

Ausgabe: 8,740,132.820 

aa a a Ausgabe im Exponentialformat. Führende # stehen hier für 
die Stellen des Basis-Anteils und A für die Exponentenstellen 
(E+xxxx). Überflüssige Basis-Stellen werden mit 0 gefüllt. Der 
Exponent wird den Vorkommastellen angepaßt. 

Print Using "#. ######## -»,13711*64 

Ausgaben. 77504000E+05 


! Das erste Zeichen eines Strings wird ausgegeben: 

Print Using "Ising In I FA","Uhu","igitt","Gaga 
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Ausgabe:using in GFA 


& Gesamt-String wird ausgegeben: 

Print Using ,, &hausen", ,, Enten ,, 

Ausgabe: Entenhausen 


\..\ Ausgabe von so vielen Zeichen des Strings, wie Länge von 
\..\ (inkl. Backslashs): 

Print Using "\. Aingen","Hattu Möhren?" 

Ausgabe: Hattingen 

(Tiefstrich) Interpretiert das hierauf folgende Using- 
Formatzeichen nicht als solches, sondern gibt es als ASCII- 
-Zeichen aus. 

Print Using "Channel _### _\ &»,44,»XYZ» 

Ausgabe: Channel #44 \ XYZ 


Die Formatvorgabe und die String- und/oder Werte- und/oder 
Ausdrucksliste kann in beliebiger Reihenfolge gegliedert sein, 
solange die Parametertypen in ihrer Reihenfolge der Formatvor¬ 
gabe entsprechen. Wird die Reihenfolge nicht korrekt eingehal¬ 
ten bzw. trifft der Interpreter auf unlogische Formate, wird ein 
Fragezeichen an der betreffenden Stelle ausgegeben. Bei nume¬ 
rischen Formaten wird dem ausgegebenen Wert ein Prozent¬ 
zeichen vorangestellt, wenn die Stellenanzahl des Wertes das da¬ 
für vorgesehene Format überschreitet. Werden außerdem bei 
numerischen Werten im Format weniger Nachkommastellen an¬ 
gegeben als vorhanden sind, werden die übrigen Nachkomma¬ 
stellen integriert. 

Außerdem haben Sie die Möglichkeit, zwischen Dezimalpunkt 
und -komma zu wählen (siehe MODE). Durch Nachstellen eines 
Semikolons (Print Using "....",Expr,Liste....;) kann - wie bei 
PRINT - die Ausgabe von CR/LF unterdrückt werden. 
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Mit Angabe eines Datenkanals (Print #l,Using...) können die 
Ausgaben auch auf diesen Kanal umgeleitet werden. Die oben 
angeführten Syntaxregeln sind auch dann gültig. 


WRITE { WR } 


Daten ausgeben 


WRITE [#Kanal,] ["Text" [,Var,Expr;...]J 

Das ist ein Ausgabe-Befehl, der in erster Linie zur Daten¬ 
speicherung in sequentiellen Dateien gedacht ist. Dieser Befehl 
kann aber auch zur Text- bzw. Datenausgabe auf dem Bild¬ 
schirm verwendet werden. Er ist dem PRINT-Befehl sehr ähn¬ 
lich, hat jedoch einen anderen syntaktischen Aufbau. Außerdem 
werden hier die Anführungszeichen eines übergebenen Strings 
(Ausdruck oder Variable) sowie die Kommas, mit denen hier die 
einzelnen Ausdrücke voneinander getrennt werden, ebenfalls 
ausgegeben. 


Seinen eigentlichen Sinn zeigt dieser Befehl jedoch erst, wenn 
mit einem INPUT#-Befehl mehrere Werte oder Strings gleich¬ 
zeitig aus einer Datei eingelesen werden sollen. Dazu müssen die 
Einzeldaten durch Kommata voneinander getrennt sein. Da 
WRITE# Kommata an den entsprechenden Platz in der Datei 
schreibt, können die Daten beim Einlesen mit INPUT# unter¬ 
schieden und den dabei angegebenen Variablen zugeordnet wer¬ 
den. Beispiel: 


• Datei zur Ausgabe öffnen 
! Data-Zeiger setzen 
! 4 Zeilen 
! Je 3 Datas 

! in die Datei schreiben 
! Nächste Zeile 
! Datei schließen 


Open "0",#1."Friends" 

Restore N_amen 
For IX=1 To 4 

Read NameS.BerufS,Telefons 
Urite #1,Name$,Berufs,TelefonS 
Next IX 
Close #1 
N_amen: 

Data " Elizabeth Königin London/112233 11 

Data " Kashogghi Milliardär Riad/1.000.000.000 " 

Data " Boris The lost Minner Leimen/666666 " 

Data " Yeti l, , M Schneemensch Himalaya/XY-ungelöst " 

Open "I",#1."Friends" ! Datei zun Einlesen öffnen 

Print "Meine besten Freunde:";Chr$(13);ChrS(10) ! Bla... 
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Print "Datei - Inhalt ohne Format:";ChrS(13);ChrS(10) ! ...bla 
A$=InputS(Lof(#1),#1) ! Kompletten Datei-Inhalt lesen 

Print AS ! Unformatiert ausgeben 

Seek #1,0 I File-Pointer wieder auf Anfang 

Print »Mit WRITE ausgegeben:»;Chr$(13);ChrS(10) 

For IX=1 To 4 ! 4 Zeilen 

Input #1,N.ame$,B.eruf$,T.elefon$ I Je 3 Ausdrücke 
Write N.ame$,B.erufS,T.elefonS ! mit URITE ausgeben 
Next IX 

Seek #1,0 ! File-Pointer wieder auf Anfang 

Print ChrS(10);"Mit PRINT ausgegeben:»;Chr$(13);ChrS(10) 

For IX=1 To 4 14 Zeilen 

Input #1,N.ame$,B.eruf$,T.elefonS I Je 3 Ausdrücke 
Print N.ame$,B.eruf$,T.elefon$ ! mit PRINT ausgeben 

Next IX 

Close #1 I Datei schließen 


5.3 Bildschirmoperationen 


HTAB{HT> 

Aktuelle Cursor-Spalte bestimmen 

HTAB Spalte 


Ein Befehl, der vor allem der Kompatibilität zu anderen BASIC- 
Dialekten und der Zusammenarbeit mit CRSCOL dient. 

LOCATE{LOCAT} 

Cursor positionieren 

LOCATE S,Z 


Positioniert den Zeichen-Cursor auf Spalte "S" und Zeile "Z", 
analog zu PRINT AT(S,Z). Weiteres siehe dort. 
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Cursor-Spalte ermitteln 


poso 


Var=POS(Dummy) 

POS liefert Ihnen die Zahl der seit dem letzten Wagenrücklauf 
(CR) am Bildschirm ausgegebenen Zeichen AND 255. Es muß 
ein in Klammern nachgestelltes numerisches Scheinargument an¬ 
gegeben werden. Diese Zahl kann beliebig gewählt werden und 
hat keinen weiteren Einfluß auf die Funktion. 

Da eine Bildschirmzeile maximal 80 Zeichen aufnehmen kann, 
muß der von POS zurückgelieferte Wert nicht unbedingt mit der 
tatsächlichen Spaltenposition des Cursors übereinstimmen. Geben 
Sie zum Beispiel eine 150 Zeichen lange Zeichenkette aus, so 
liefert POS den Wert 150, der Cursor steht jedoch in Spalte 70. 

Ist in der letzten Ausgabe eines der Steuerzeichen CHR$(8) 
(Backspace) oder CHR$(13) (Carriage Return) enthalten ge¬ 
wesen, haben diese Einfluß auf die POS()-Position: 

Backspace (BS=Chr$(8)) Vermindert POSO i*n 1 

Carriage Return (CR=Chr$(13)) Setzt POSO auf Null 


spco 


Leerzeichen ausgeben 


PRINT SPC(Anz) 

PRINT [Ausdrücke;Werte;etc.;] SPC(Anz) [;etc.] 

SPC ist ein Befehl, der nur im Zusammenhang mit PRINT ver¬ 
wendet werden kann. Der in Klammern angegebene Ausdruck 
Anz steht für die Anzahl an Leerzeichen (SPaCe = 0 - 255), die 
an der aktuellen Cursor-Position ausgegeben werden sollen. 
Beispiel: 

Print "==> l, ;Spc(20);"Ende" 

Ausgabe : ==> Ende 






Ein-/Ausgabebefehle 


87 


Nicht möglich ist: 

A$=«==>"+Spc(20)+"Ende" 

Es wird ein Syntaxfehler angezeigt. Für solche Konstrukte eignet 
sich SPACE$(20). 



TAB (Position) 

PRINT [Ausdrücke;Werte;etc.;] TAB(Anz) [;etc.] 


Es kann eine Tabulatorposition bestimmt werden, an welcher der 
Cursor dann positioniert wird. Diese Position kann im Bereich 
von 0 bis 255 liegen. Größere Werte werden mit MOD 256 auf 
diesen Bereich zurückgerechnet. Befindet sich der Cursor in 
einer Zeile hinter der zuletzt angegebenen Tabulatorposition und 
der Wert einer sich anschließenden TAB-Anweisung liegt 
zwischen 256 und der aktuellen Cursor-Position, so wird dieser 
Tabulator in derselben Zeile ausgeführt. Ist der TAB-Wert 
kleiner als die aktuelle Cursor-Position, wird die Anweisung in 
der nächsten Zeile ausgeführt. TAB ist ebenso wie SPC nur in 
Verbindung mit PRINT ausführbar. String-Konstrukte mit TAB 
sind nicht möglich. Beispiel: 

For JX=0 To 11 ! 12 mal 

Restore T_ext ! Data-Zeiger setzen 

For IX=1 To 2 ! 4 Datas... 

Read A$,AX • ...lesen... 

Print Tab(JX*6);A$' 1111 'AX ! ... und ausgeben 

Next IX ! Nächstes Data 

Next JX ! Nächste Position 

T ext: 

Data GFA-,1,BASIC,2 





88 


Das große GFA-BASIC-Buch 


VTAB { VT} Aktuelle Cursor-Zeile bestimmen 


VTAB Zeile 

VTAB und HTAB (siehe dort) haben im Vergleich zu LOCATE 
und PRINT AT den Vorteil, daß sich mit ihnen der Cursor für 
Zeile und Spalte getrennt positionieren läßt. 


5.4 Diskettenoperationen 

Bei allen Diskettenoperationen, denen ein Dateiname zu über¬ 
geben ist, besteht die Möglichkeit, einen Suchpfad zu definieren, 
über den der Dateizugriff ausgeführt werden soll. Dieser setzt 
sich (entsprechend den Konventionen von AmigaDOS) aus drei 
Komponenten zusammen: 


[Diskettenname J Laufwerk ]:[Verzeichnisname/.../Verzeichnisname/] 
Dateiname 

Diskettenname | Laufwerk: Ganz am Anfang des Pfads steht 
entweder der Name der anzusprechenden Diskette oder die Be¬ 
zeichnung des gewünschten Laufwerks, beides gefolgt von einem 
Doppelpunkt. Als Laufwerksbezeichnung sind die folgenden 
Namen zulässig: 

DFO:, DF1:,DF2:,DF3: für die (maximal) vier Diskettenlaufwerke 
DHO:, DH1:, für die Partitions auf einer Amiga-seitigen Harddisk 

JHO:, JH1:, für die Amiga-Partitions auf einer PC-seitigen Hard¬ 

disk 

RAM: für evtl, vorhandene RAM-Disk 

Die Angabe des Laufwerks kann auch entfallen. In diesem Fall 
wird dann auf dem aktuellen Laufwerk gesucht. Verzeichnis¬ 
name: An zweiter Stelle folgt der Name des Verzeichnisses (Ord¬ 
ners), in dem die Datei abgelegt ist. Verzeichnisse dürfen be¬ 
liebig verschachtelt werden, (mehr als drei Ebenen sind jedoch 
aus Gründen der Übersichtlichkeit nicht ratsam). Die einzelnen 
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Namen müssen in diesem Fall durch Schrägstriche (/) voneinan¬ 
der getrennt werden. Jeder Name darf maximal 30 Zeichen ent¬ 
halten. 

Dateiname: Der Dateiname (von den Verzeichnisnamen durch 
einen Schrägstrich getrennt) darf ebenfalls bis zu 30 Zeichen 
lang sein. Beispiele: 

D F1:UTILITY/OUTPUTS/DRUCKE.WAS 

Sucht im Laufwerk DF1 im Unterordner OUTPUTS des Ordners 
UTILITY nach der Datei DRUCKE.WAS. 

PROGRAMME:GFA-BAS IC/GRAFIK.LST 

Sucht auf der Diskette PROGRAMME im Ordner GFA-BASIC 
nach der Datei GRAFIK.LST. 

dhO:BEISPIELE 

Sucht auf der Amiga-seitigen Harddisk-Partition 0 nach der 
Datei BEISPIELE. Der Pfadname kann unter GFA-BASIC in 
den meisten Fällen als String-Ausdruck, als String-Variable oder 
als Kombination von beidem übergeben werden. 

Im folgenden wird Ihnen öfter der Begriff "#Kanal" begegnen. 
Damit ist bei Datei-relativen Diskettenoperationen der Identi- 
fikator (0 - 99) der jeweils angesprochenen Datei gemeint. 


BLOAD { BL } Datei in Speicherbereich laden 


BLOAD "Dateiname" [,Start] 

Mit BLOAD kann eine beliebige Datei komplett vom Fest¬ 
speicher (Diskette/Hard-Disk/RAM-Disk) an eine beliebige 
RAM-Adresse geladen werden. 
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In "Dateiname" wird die Dateibezeichnung (ggf. inkl. Pfad) 
übergeben, und durch den Parameter "Start" wird die Adresse 
angegeben, ab welcher die Daten abgelegt werden sollen. Wird 
"Start" ausgelassen, wird jene Adresse als Ziel verwendet, die 
beim letzten BSAVE-Aufruf als Quelle gedient hat. Beide Para¬ 
meter können auch in Variablen übergeben werden. 

Vor einem BLOAD-Aufruf sollten Sie sicherstellen, daß die zu 
ladende Datenmenge auch tatsächlich ab der angegebenen 
Speicherstelle untergebracht werden kann, ohne in wichtige Be¬ 
reiche hineinzuschreiben. In den meisten Fällen wird dies durch 
das Einrichten eines ausreichend großen Puffers in Form einer 
Stringvariablen erledigt. 


BSAVE { BS } Speicherbereich auf Disk speichern 


BSAVE "Dateiname“,Start,Anz 

Das ist ein sehr komfortabler Befehl, auf den man sicher immer 
wieder zurückkommen wird. Er bietet die Möglichkeit, eine be¬ 
liebige Anzahl von Bytes als gesamten Block (BSAVE = Block¬ 
SA VE) auf Diskette zu speichern. Es muß der Name der Datei 
angegeben werden, die diesen Block auf nehmen soll. Nach einem 
Komma folgt die Adresse, in welcher das erste Byte des Blocks 
steht, und abschließend wieder nach einem Komma die Anzahl 
(Anz) der Bytes, die gespeichert werden sollen. 


CHAIN { CHAI } Programm laden (Autostart) 


CHAIN "Programmname" 

Dieser Befehl ist eigentlich identisch mit LOAD. Allerdings wird 
das hiermit geladene Programm nach dem Laden automatisch 
gestartet. Da bei diesem Programmstart - wie sonst auch - alle 






Ein-/Ausgabebefehle 


91 


Variablen und Felder gelöscht werden, können diese zwischen 
den "gechainten" Programmen nicht ausgetauscht werden. Hier 
hat man nun folgende Möglichkeit: 

Sie können alle wichtigen Daten, die von dem aufrufenden Pro¬ 
gramm übergeben werden sollen, in eine Datei schreiben (siehe 
PRINT#/WRITE#), diese am Programmanfang des CHAIN-Pro- 
gramms einiesen (siehe INPUT#) und die Puffer-Datei dann 
wieder löschen. Der Vorteil ist hier, daß die übergebene Daten¬ 
menge nur durch den freien Disk-Speicherplatz begrenzt ist. 
Beispiel: 


Programm 1: 


AX=1025 
8=399.22 
CS="BASIC" ! 

Open ,, 0 ,, ,#1,"Vars.Dat" ! 

Write #1,A%,B,C$ I 

Close #1 ! 

Chain "Program2.GFA" I 
Programm 2 (Program.GFA): 
Open ,, l",#1, ,, Vars.Dat" ! 

Input #1,AX,B,C$ I 

Close #1 ! 

Kill "Vars.Dat" ! 


• Beliebige Variable 


Puffer-Datei öffnen 
Daten übergeben 
Datei schließen 
Programm 2 aufrufen 

Puffer-Datei öffnen 
Daten einiesen 
Datei schließen 
Puffer-Datei löschen 


Print "Variablen aus Programm 1 : ,, ;AX ,, B ,, CS 


Im Interpreter-Betrieb wird durch CHAIN auch der BASIC- 
Arbeitsspeicher samt Inhalt (aufrufendes Programm) vorher ge¬ 
löscht. Wenn Sie kein PSAVE-geschütztes Programm aufgerufen 
haben, finden Sie nach Programmende das nachgeladene Pro¬ 
gramm auch im Editor. 


CHDIR { CHD } 


Ordner wechseln 


CHDIR "Ordner" 

Hiermit wird das aktuelle Verzeichnis (Ordner) neu festgelegt. 
Dieses Verzeichnis gilt im weiteren Programm (bis zur nächsten 
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Änderung) als voreingestellt, d.h. bei Diskettenzugriffen wird 
immer auf dieses Verzeichnis zugegriffen. Dem Befehl wird 
einfach der Zugriffspfad übergeben, über den das Verzeichnis 
zu erreichen ist (Pfadstruktur siehe Kapitelanfang). Diese Be¬ 
zeichnung kann wieder entweder in einer Variablen enthalten 
sein (Chdir OrdnerS) oder als Textkonstante übergeben werden 
(Chdir "UTILITY"). 

Besteht die Pfadangabe nur aus einem Doppelpunkt, greift 
CHDIR danach nicht auf einen Ordner, sondern auf das 
Hauptverzeichnis zu. 

Außerdem besteht die Möglichkeit, durch einen Schrägstrich (/) 
in das jeweils übergeordnete Verzeichnis zu wechseln. Ange¬ 
nommen, das aktuelle Verzeichnis ’Ordnerl’ liegt im Verzeichnis 
’Chef_Ordner\ Ebenfalls in diesem Über-Ordner befindet sich 
noch ein weiteres Verzeichnis ’Ordner2’, zu dem gewechselt 
werden soll. Anstatt in diesem Fall CHDIR 
"Chef_Ordner/Ordner2" zu schreiben, genügt ein CHDIR 
"/Ordner2". 


DFREEQ Freien Disketten-Speicherpiatz ausgeben 


Var=DFREE(0) 

DFREE(O) liefert den momentan freien Speicherplatz des aktu¬ 
ellen (über CHDIR gewählten) Laufwerks. Der Wert 0 ist ein 
Dummy-Wert und hat keine weitere Bedeutung. 
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Directory ausgeben 


DIR 


DIR ["Pfad"] [TO "Datei“] 

Durch DIR lassen sich auf verschiedene Weise Inhaltsverzeich¬ 
nisse entweder einer beliebigen Diskettenstation oder eines be¬ 
stimmten Ordners ausgeben. Dabei ist es auch möglich, diese 
Directories in eine bestimmte Diskettendatei zu schreiben oder 
auf dem Drucker ausdrucken zu lassen. Zur Pfadangabe können 
sämtliche am Kapitelanfang beschriebenen Spezifikationen ver¬ 
wendet werden.Beispiele: 

DIR "DFO:PROGRAMME" 

Gibt alle Dateien aus, die sich im Laufwerk DFO: im Verzeichnis 
PROGRAMME befinden. 

DIR "DF1:" TO "PRT 

Gibt alle Dateien des Laufwerks DF1: auf dem Drucker aus. 


DIR$() 


Aktuellen Zugriffspfad ermitteln 


Var$ = DIR$(0) 

Mit dieser Funktion kann der momentan gültige (über CHDIR 
festgelegte) Zugriffspfad ermittelt werden. Ist kein Ordner ge¬ 
öffnet, wird ein Leer-String zurückgegeben. 
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EXISTQ 


Existenz einer Datei prüfen 


Var=EXIST(Dateiname) 

Ermittelt, ob die Datei (oder auch der Ordner) "Dateiname" vor¬ 
handen ist. Es wird entweder eine 0 (= FALSE -> nicht vorhan¬ 
den) oder -1 (= TRUE -> vorhanden) zurückgegeben. Die An¬ 
gabe eines Suchpfades erfolgt ggf. gemäß der am Kapitelanfang 
beschriebenen Struktur.Beispiel: 

If ExistC'DFI :Datei .Dat") ! Datei. Dat auf DF 1 ? 

Open "I",#1,"DF1:Datei.Dat" I Ja, dann öffnen 
'...weiteres Programm 
Else 

Print "Datei.Dat existiert nicht!" 

Endif 


FILES Directory (erweitert) ausgeben 


FILES ["Pfad"] [TO "Datei"] 

Genügen Ihnen die reinen Dateinamen nicht, die mit DIR ausge¬ 
geben werden, können Sie mittels dieses Befehls auch weitere 
Attribute der einzelnen Dateien erfahren. So haben Sie die Mög¬ 
lichkeit, zusätzlich die Größe der Dateien sowie das Datum und 
die Uhrzeit ihrer Erstellung in Erfahrung zu bringen. Im übri¬ 
gen wird dieser Befehl exakt genauso angewendet wie DIR (z.B. 
FILES listet alle Dateien der aktuellen Disk außerhalb von Ord¬ 
nern sowie alle Ordner auf). 
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Disk-Datei löschen 


KILL { K } 


KILL “Dateiname" 

Möchten Sie eine Datei auf dem Festspeicher (Diskette/Hard- 
Disk/RAM-Disk) löschen, können Sie das mit diesem Befehl 
tun. Dazu wird in "Dateiname" der Name der zu löschenden Da¬ 
tei (Pfad siehe ggf. Kapitelanfang) angegeben. 


LIST { LIS } Programm listen/spelchern (ASCII) 


LIST ["Dateiname"] 

Möchten Sie das im Arbeitspeicher befindliche Programm auf 
dem Monitor auflisten oder als ASCII-File auf Diskette ab¬ 
speichern, hilft Ihnen dieser Befehl. Geben Sie im Direktmodus 
oder als Programmzeile nur den Befehlsnamen ohne Angabe 
eines Dateinamens ein, wird das gesamte Programm auf dem 
Ausgabebildschirm ausgegeben. Das Listing kann jederzeit durch 
die GFA-Abbruchtastenkombination <ControlxShiftxAlter- 
nate> unterbrochen werden. Wollen Sie das Listing als soge¬ 
nanntes ASCII-File auf Diskette abspeichern, übergeben Sie dem 
Befehl (in Anführungsstrichen) den Namen der Datei, in welcher 
das Listing abgelegt werden soll. Dieser Befehl ist identisch mit 
der Editor-Funktion Save,A. Sie können also hiermit abge¬ 
speicherte Programme jederzeit mit der Editor-Funktion Merge 
in ein anderes im Arbeitsspeicher befindliches Programm ein¬ 
binden. Die Anführungsstriche zum Dateinamen können ver¬ 
nachlässigt werden, da sie vom Interpreter - falls nicht vorhan¬ 
den - selbsttätig gesetzt werden. Die Extension zum Dateinamen 
kann ebenfalls vernachlässigt werden. Auch sie wird vom Inter¬ 
preter gesetzt (.LST - falls nicht anders vorgegeben). Befindet 
sich bereits ein Programm gleichen Namens auf der Diskette, 
wird es automatisch auf Programmname.BAK umbenannt. 
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Ein ASCII-File ist eine Datei, in die jedes einzelne Text- und 
Steuerzeichen des zu speichernden Textes in der Reihenfolge 
seines Auftretens als entsprechender ASClI-Wert (0 - 255) ge¬ 
schrieben wird. Die meisten textverarbeitenden Programme 
bieten die Möglichkeit, ASCII-Files zu speichern und zu laden. 
D.h., daß Texte dieser Art unter den verschiedenen Program¬ 
men, Systemen und Computern austauschbar sind, soweit diese 
sich an den American Standard Code for Information Inter¬ 
change halten (ASCII = Amerikanischer Standard-Code zur In¬ 
formationsübertragung). Dateien mit anderen Formaten, wie z.B. 
die .GFA-Dateien werden nach einem anderen Schema kodiert. 
Dieser Token-Code wird vom Programmierer selbst entwickelt, 
um zum Beispiel eine höhere Lade- oder Speichergeschwindig¬ 
keit, einen speziellen Effekt oder eine erschwerte Lesbarkeit zu 
erreichen (siehe PSA VE). Diese Dateien sind dann allerdings 
nicht mehr mit anderen Programmen (Interpretern etc.) aus¬ 
tauschbar. Sie sind nicht mehr kompatibel (compatibility = 
Vereinbarkeit/Verträglichkeit). 

Zur Ausgabe des Listings auf dem Drucker haben Sie auch die 
Möglichkeit, in Dateiname den Drucker-Port PRT: anzugeben. 
Diese Variante ist dann identisch mit dem Befehl LLIST, wobei 
jedoch Punkt-Befehle (siehe Editor-Funktion Llist) unberück¬ 
sichtigt bleiben. 


LOAD { LOA } Programm in Arbeitsspeicher laden 


LOAD ,, Programmname , 

Mit LOAD kann ein beliebiges GFA-BASIC-Programm in den 
Arbeitsspeicher geladen werden. Prinzipiell verhält sich dieser 
Befehl so, als würden Sie den Menüpunkt Load im Editormenü 
anklicken oder im Editor die Taste <F1> drücken. Auch hier ist 
die am Kapitelanfang beschriebene Pfadstruktur zu verwenden. 
"Programmname" ist der Name des zu ladenden Programms. Wird 
dem Programmnamen keine Extension beigefügt, wird vom 
Interpreter selbständig .GFA angehängt, z.B.: 
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Load "Utility/Drei_d" 

Das aktuelle Programm wird beendet und das Programm 
’Drei_d’ nachgeladen. Dieses muß nun durch Run im Direkt¬ 
modus, <ShiftxF10> oder Klick auf Run im Editormenü ge¬ 
startet werden. Bei durch PSAVE gespeicherten Programmen ist 
dies jedoch nicht nötig, da diese automatisch gestartet werden. 


MKDIR { MK } 


Ordner erzeugen 


MKDIR "Ordner" 

Mit MKDIR können auf einer beliebigen Station im Haupt- 
Directory oder innerhalb eines vorhandenen Ordners weitere 
Ordner angelegt werden. Dabei wird ggf. wieder die am 
Kapitelanfang beschriebene Pfadstruktur verwendet. Als Über¬ 
blick folgt eine Auflistung verschiedener Varianten dieses Be¬ 
fehls. 


Mkdir "AKTE" 


Erzeugt einen neuen Ordner mit dem Namen AKTE auf der 
aktuellen Station entweder im Haupt-Directory bzw. in dem 
Ordner, der gerade geöffnet ist. 

Mkdir "DFO:FACH_A/AKTE" 

Erzeugt einen neuen Ordner mit Namen AKTE auf Station DFO: 
im vorhandenen Ordner FACH_A. Ist bereits ein Ordner mit 
derselben Pfadbezeichnung vorhanden, wird eine Fehlermeldung 
ausgegeben. 
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NAME {NA AS} Datei umbenermen 


NAME "Name alt" AS "Name neu" 

Ermöglicht die nachträgliche Änderung eines Dateinamens. 
Dieser Befehl erwartet zwei Parameter. Der erste davon 
(Name_alt) ist der Dateiname, dessen Name verändert werden 
soll. Nach einem angehängten AS wird ein weiterer Name 
(Name_neu) übergeben, der nun an die Stelle des alten Namens 
tritt. Beide Namen können entweder als String-Ausdruck, als 
String-Variable oder als Kombination aus beidem übergeben 
werden. Am Kapitelanfang finden Sie die Pfadstruktur, die ggf. 
auch hier zu verwenden ist. Zu beachten ist bei diesem Befehl, 
daß eine eventuelle Laufwerksvorgabe (z.B. DFO:) bei beiden 
Namen identisch anzugeben ist. Ist beim alten Namen eine Dis¬ 
kettenstation angegeben und ist diese Station auch die aktuelle, 
dann kann beim neuen Namen die Spezifikation entfallen. In¬ 
nerhalb einer Station kann auch ohne weiteres eine im Haupt- 
Directory verzeichnete Datei durch eine entsprechende Pfadan¬ 
gabe im neuen Namen in einen schon existierenden Ordner ver¬ 
legt werden und umgekehrt. 


PSAVE { PS y Programm speichern (Ustgeschützt) 


PSAVE "Programmname“ 

Für diesen Befehl gilt die gleiche Ausführung wie zu SAVE. Er 
bietet nur eine kleine Besonderheit, die aber in ihrer Wirkung 
sehr beeindruckend ist. Das P in diesem Befehlsnamen steht für 
protected (geschützt). Die GFA-Programme, die hiermit abge¬ 
speichert wurden: 

- können nicht mehr gelistet werden. 

- werden sofort nach dem Laden gestartet (Autostart, s. 
LOAD). 
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können nicht bearbeitet werden. Wird versucht, mit dem 
Interpreter das - unsichtbare - Listing zu bearbeiten, wird 
man früher oder später mit einem Total-Absturz belohnt. Der 
Interpreter verfügt bei PSAVE-Programmen nicht mehr über 
die notwendigen Zeiger auf die Variablennamen, und beim 
Versuch, diese zu finden, gibt es Adressen-Wirrwarr. 


RENAME { REN } Datei umbenennen 


RENAME “Name alt AS "Name neu" 

Entspricht exakt dem Befehl NAME (weiteres siehe dort). 


RMDIR { RM } 


Ordner löschen 


RMDIR "Ordner" 

Die Syntax dieses Befehls ist identisch mit CHDIR, nur daß der 
angegebene Ordner nicht geöffnet, sondern gelöscht wird. Befin¬ 
den sich allerdings noch Dateien in dem Ordner, kann dieser 
Befehl nicht ausgeführt werden, und es erscheint eine Fehler¬ 
meldung. Ggf. sind die enthaltenen Dateien vorher durch KILL 
zu löschen. 


SAVE { SA } Programm speichern (codiert) 


SAVE “Programmname" 

SAVE speichert das im Programmspeicher befindliche Programm 
unter dem angegebenen Namen im Token-Format auf dem 
Festspeicher (Diskette/Hard-Disk) bzw. RAM-Disk (zur Pfad- 
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angabe siehe ggf. Kapitelanfang). Die Anführungsstriche zum 
Dateinamen können vernachlässigt werden, da sie vom Inter¬ 
preter - falls nicht vorhanden - selbsttätig gesetzt werden. Die 
Extension zum Dateinamen kann ebenfalls vernachlässigt wer¬ 
den. Auch sie wird vom Interpreter gesetzt (.GFA - falls in Pro¬ 
grammname keine andere Extension vorgegeben wurde). Befin¬ 
det sich bereits ein Programm gleichen Namens auf der Diskette, 
wird es automatisch auf Programmname.BAK umbenannt. 


5.5 Dateihandhabung 


Teildatei lesen 


BGET { BG } 


BGET [#] Kanal,Start, Anz 


Kanal ist der Identifikator einer mit OPEN T oder "U" geöf¬ 
fneten Datei. Ab File-Pointer-Position werden Anz Bytes dieser 
Datei in den Arbeitsspeicher - beginnend mit der Adresse Start 
- gelesen. Wird die Datei anschließend nicht mit CLOSE ge¬ 
schlossen, bleibt der File-Pointer auf der dem gelesenen Teil 
folgenden Byte-Position stehen. Der nächste Dateizugriff 
(BGET#, INP(#), INPUT#, PRINT#, OUT# etc.) bezieht sich 
dann auf diese Position. Beispiel: 


Open "0",#1,"dfO:Test.Dat" 
Print #1;"GFA-BASIC"; 

CI ose 

A$=Space$(5) 

Open "l ,, ,#1,"dfO:Test.Dat" 
Seek #1,4 

Bget #1,Varptr(A$),5 
CI ose 
Print A$ 


! Output-Datei öffnen 
! String hineinschreiben 
! und wieder schließen 

• Kleinen Puffer setzen 

• Datei für Eingabe öffnen 

• 4 Bytes überspringen 

! 5 Bytes in Puffer lesen 
! Datei schließen 
! String ausgeben 
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Teildatei schreiben 


BPUT { BP } 


BPUT [#] Kanal,Start, Anz 

Es werden Anz Bytes ab der Adresse Start gelesen und - begin¬ 
nend mit der File-Pointer-Position - in eine mit OPEN "O" bzw. 
"U" geöffnete Datei mit dem Identifikator Kanal geschrieben. Im 
Gegensatz zu BSAVE können hiermit auch Teile einer Datei 
überschrieben oder an diese angefügt werden. Wird die Datei 
anschließend nicht mit CLOSE geschlossen, bleibt der File- 
Pointer auf der dem geschriebenen Teil folgenden Byte-Position 
stehen. Der nächste Dateizugriff (BGET#, INP(#), INPUT#, 
PRINT#, OUT# etc.) bezieht sich dann auf diese Position. 


CLOSE { CL } Datenkanal schließen 


CLOSE [#Kanal] 

Alle mit OPEN geöffneten Kanäle müssen mit CLOSE #Kanal 
geschlossen werden, um ihre Kanal-Nummer für eine andere 
Datei verwenden zu können. Wird CLOSE ohne #Kanal verwen¬ 
det, werden damit sämtliche Kanäle gleichzeitig geschlossen. Ein 
Kanal, der noch nicht mit CLOSE #Kanal geschlossen wurde 
und nochmals mit OPEN angesprochen wird, verursacht eine 
Fehlermeldung. Im Interpreter-Betrieb können nach Program¬ 
mende von der Direkt-Ebene aus alle offenen Dateien weiterhin 
angesprochen werden, solange im Editor keine Programmände¬ 
rung vorgenommen wurde. 
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EOFO 


Datei auf Dateiende prüfen 


Var=EOF(#Kanal) 


Mit dieser Funktion kann festgestellt werden, ob sich der File- 
Pointer hinter dem letzten Byte der mit #Kanal angegebenen 
Datei - also am Dateiende (EndOfFile) - befindet. Ist dies der 
Fall, dann erhält man den Wert -1 (TRUE), andernfalls eine 
Null (FALSE). Die wohl wichtigste Anwendung dieser Funktion 
ist die Vermeidung der Fehlermeldung "File-Ende erreicht". 
Beispiel: 


Open "Dateiname“ 

Uh He Eof (#1 )=False 
Print Inp(#1) 

Uend 


! File zum Lesen öffnen 
! Solange File-Ende nicht erreicht 
! Einzelnes Byte lesen und ausgeben 
! Wieder von vorn >- 


FIELD { Fl AS bZW. Fl AT } Datensatz in Felder unterteilen 


FIELD #Kanal,Anz AS Var1$ [,Anz AS Var2$,...] 

FIELD #Kanal,Anz AT(Adrl) [,Anz AT (Adr2),...] 

Teilt die Datensätze der mit Kanal# angegebenen Random-Datei 
in so viele Einträge auf, wie durch die Menge der Anz AS 
Var$-Komponenten vorgegeben wird. Es wird jeweils die in 
Anz angegebene Anzahl an Bytes der nach AS folgenden String- 
Variablen (Varl$, Var2$ etc.) zugeordnet und die Variable 
gleichzeitig mit Leerzeichen gefüllt. Um numerische Daten nicht 
durch MKI$ etc. in Strings umwandeln zu müssen, kann die 
zweite Syntax-Variante verwendet werden. Dabei enthält Anz 
die Anzahl an Bytes, die ab der zugehörigen - hinter AT in 
Klammern gesetzten - Adresse gelesen werden sollen. Beispiel: 

a%=673123 

b%=VARPTR(aX) 

c&=1000 
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d=61234.1231 

FIELD #1,4 AT(b%),2 AT(*c&),8 AT(*d) 

AT- und AS-Komponenten können in einer FIELD-Zeile belie¬ 
big gemischt werden (z.B. FIELD #1,20 AS a$,2 AT(*b&),...). 
Außerdem kann die FIELD-Aufteilung für eine Datei auf 
mehrere Programmzeilen verteilt sein. Diese werden dann als 
zusammengehörig angenommen. Siehe weiteres Beispiel unter 
5.5.1 "Funktionsweise einer Random-Access-Datei". 


Datensatz lesen 


GET# 


GET #Kanal [.Satznummer] 

Kanal gibt die R-Datei (siehe OPEN) an, aus welcher der in 
Satznummer angegebene Datensatz gelesen werden soll. Bei der 
Zuordnung von Datensätzen zu einer R-Datei ist jedem Satz eine 
Nummer zuzuteilen. Durch deren Angabe kann der ent¬ 
sprechende Datensatz mit GET# wieder in die mit FIELD spe¬ 
zifizierten String-Variable(n) zurückgelesen werden. Fehlt "Satz¬ 
nummer", wird jeweils der nächste bzw. der durch RECORD 
ggf. gesetzte Datensatz gelesen. Beispiel unter 5.5.1 "Funktions¬ 
weise einer Random-Access-Datei". 


File-Pointer-Position 


LOCO 


Var = LOC(#Kanal) 

LOC (Abk. f. Location) liefert die aktuelle Position des Schreib¬ 
und Lesezeigers (File-Pointer) der durch #Kanal bestimmten 
Datei. Die gelieferte Byte-Position wird ab Dateianfang gezählt. 
Beispiel: 
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-> Byte-Folge einer beliebigen Datei -> 

| Byte 1 | Byte 2 j Byte 3 j Byte 4 } Byte 5 j Byte 6 | etc. ... 

■_i_i_i_i_i_i_ 


Angenonmen: Aktueller Pointer zeigt auf Byte 4: 
PointerX=Loc(#1) ! Liefert dann in PointerX den Wert 4 


LOFO 

Dateilänge ermitteln 

Var=LOF(#Kanal) 


Durch LOF (Abk. f. Length Of File) ist es bei Disketten- bzw. 
Hard-Disk-Dateien möglich - sofern sie überhaupt einen Inhalt 
haben - ihre Byte-Länge zu ermitteln. Der Funktion wird dazu 
in Klammern die #Kanal-Nummer der betreffenden Datei über¬ 
geben. Beispiel: 

Open "U",#1."Dateiname" 
Print Lof(#1) 

AX=Lof(#1) 

If Lof(#1)>32767 

AS=InputS(32767,#1) 

Else 

A$=Input$(Lof(#1),#1) 
Ertdif 
... etc. 

! Zuerst Datei öffnen 
i Variante 1: Direktausgabe 
! Variante 2: Zuweisung 
! Variante 3: Bedingungsabfrage 

! Variante 4: Einbindung 

OPEN{O} 

Datenkanai öffnen 


OPEN "Modus“,#Kanal,"Dateiname" [.Satzlänge] 

Dieser Befehl öffnet eine Datei - und Ihnen damit die bunte 
Welt der Dateiverwaltung. Seine Syntax ist auf den ersten Blick 
etwas kompliziert. Nach näherem Kennenlernen gewinnt man 
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ihn jedoch schnell lieb. Die Möglichkeiten, die sich Ihnen mit 
den Befehlen zur Dateiverwaltung bieten, sind schier unüber¬ 
schaubar. 

Modus: 

"O" Output öffnet eine Datei bzw. installiert sie neu. Existiert 
die angegebene Datei (auf Disk bzw. Hard-Disk) bereits, 
wird deren Länge auf Null gesetzt. In diesem Modus sind 
nur Schreibzugriffe zulässig. 

"I" Input öffnet eine vorhandene Datei zum Herauslesen von 
Daten. Der File-Pointer wird auf das erste Byte der Datei 
gesetzt. Die Dateilänge bleibt durch Lesezugriffe unver¬ 
ändert. In diesem Modus sind nur Lesezugriffe zulässig. 

"A" Append öffnet eine vorhandene Datei und setzt den File- 
Pointer auf das Dateiende. Alle an diese Datei auszugeben¬ 
den Daten werden an das Dateiende angehängt (append = 
anhängen/hinzufügen). 

"LJ" Update öffnet eine Datei für gleichzeitigen Schreib- und 
Lesezugriff. Dabei bleibt die ursprüngliche Länge erhalten. 
Es sei denn, bei der Datenausgabe wird über das aktuelle 
Dateiende hinaus geschrieben. 

"R" Random öffnet eine Random-Access-Datei. Maximal sind 
65535 Datensätze pro Datei möglich. Genauere Informa¬ 
tionen hierzu finden Sie unter Kapitel 5.5.1. "Funktions¬ 
weise einer Random-Access-Datei". 

# Kanal: 

Es können gleichzeitig max. 100 Dateien geöffnet sein. Bei der 
Öffnung wird zur Identifikation jeder Datei eine Zahl zuge¬ 
wiesen. Unter Angabe dieser Zahl hinter dem Nummernzeichen 
kann nun z.B. durch Befehle wie PRINT#, INPUT#, BGET# 
etc. auf jede einzelne dieser Dateien zugegriffen werden. Die 
angegebene #Kanal-Nummer muß im Bereich von 0 bis 99 
liegen. 
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Dateiname: 

Bezeichnet den Namen der Datei, die mit dem betreffenden 
Zugriffsmodus geöffnet werden soll. Hier kann wieder die schon 
erwähnte Pfadstruktur (siehe Kapitelanfang) verwendet werden. 

Ausnahme: 

Sie können mit fast allen #-Dateibefehlen auch die ver¬ 
schiedenen Schnittstellen Ihres Amiga ansprechen. Dazu wird 
ebenfalls eine Quasi-Datei (virtuelle Datei) geöffnet. Mit Datei 
ist in diesem Fall jedoch nicht eine Disketten- bzw. Hard-Disk- 
Datei gemeint, sondern der jeweilige Port. Es stehen Ihnen vier 
solcher Ports zur Auswahl: 

CON: = Console-Device 

PRT: = Drucker-Port. Dadurch wird der in Preferences 

eingestellte Drucker angesprochen. Sämtliche Steuer¬ 
zeichen werden durch den zuständigen Druckertreiber 
konvertiert. 

PAR: = Parallele Schnittstelle. (Evtl, auch Druckeranschluß. 

Im Gegensatz zu PRT: keine Steuerzeichenkonvertie¬ 
rung.) 

SER: = Serielle Schnittstelle mit den in Preferences einge¬ 

stellten Parametern. 

Der Ausdruck vor dem Gleichheitszeichen (inkl. Doppelpunkt) 
wird in diesem Fall als Dateiname an OPEN übergeben. Die An¬ 
gabe von Modus kann bei Verwendung dieser Schnittsteilen- 
Variante entfallen. 

Satzlänge: 

Mit Random-Access-Dateien ist es möglich, eine Reihe von 
Datensätzen innerhalb einer Datei anzulegen, die dann durch 
Identifikatoren angesprochen werden können. Der OPEN-Befehl 
erweitert sich ggf. hierfür um den Parameter Satzlänge. Darunter 
ist ein Wert zu verstehen, den Sie als Dateiverwalter selbst be- 
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stimmen können. Und zwar gibt er die Anzahl der Bytes an, die 
Sie den Datensätzen einer Datei zukommen lassen wollen. Wird 
diese Angabe bei OPEN unterlassen, wird vom Interpreter eine 
Datensatzlänge von 128 Byte vorgesehen. Weitere Informationen 
zu diesem Thema finden Sie unter 5.5.1 "Funktionsweise einer 
Random-Access-Datei". 

Die Eingabe der OPEN-Zeile kann extrem verkürzt werden. So 
wird z.B. o I 1 Name.Lst vom Editor in OPEN "I",#l ,"Name.Lst" 
und z.B. o o 1 Name$ in OPEN "o",#l,Name$ umgewandelt. Alle 
An- und Ausführungsstriche, das Nummernzeichen sowie die 
Trennkommas können vernachlässigt werden, sofern zwischen 
den einzelnen Komponenten ein Leerzeichen angegeben wird. 


PUT # { PU } 


Datensatz schreiben 


PUT #Kanal [.Satznummer] 

Es wird der durch Satznummer definierte Datensatz aus den mit 
FIELD spezifizierten String-Variablen bzw. Adressen in die R- 
Datei mit der Nummer #Kanal geschrieben. Wird keine Satz¬ 
nummer angegeben, wird der jeweils nächste bzw. der durch 
RECORD ggf. gesetzte Datensatz gelesen. Genauere Informa¬ 
tionen hierzu finden Sie unter 5.5.1 "Funktionsweise einer 
Random-Access-Datei". 


RECALL {RECA > String-Feld aus Datei lesen 


RECALL #Kanal,Feld$0..Zeilenvar 

In Verbindung mit STORE# ein wahrlich gewaltiger Befehl, der 
es zum Vergnügen werden läßt, z.B. eine Textverarbeitung zu 
programmieren. Wer sich schon einmal mit einem solchen Pro¬ 
gramm angelegt hat, wird wissen, was ich meine. 
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RECALL liest Anz Textzeilen aus der zuvor geöffneten Datei 
mit der Kennung Kanal in das String-Feld Feld$(). Carriage 
Return (CHR$(13))/Line Feed (CHR$(10) wird dabei als Zeilen¬ 
endemarkierung interpretiert. 

Den Elementen des Feldes werden der Reihe nach ab Element 0 
(OPTION BASE 0) bzw. ab Element 1 (OPTION BASE 1) je 
eine Zeile zugeordnet. Ist das Feld zu kurz (die Elementeanzahl 
ist dann kleiner als die Anzahl gelesener Zeilen), wird der Lese¬ 
prozeß beim letzten Element ohne Meldung abgebrochen. Wird 
das File-Ende erreicht, wird ebenfalls ohne Meldung abge¬ 
brochen. Zeilenvar ist eine numerische Rückgabevariable (Fließ¬ 
komma- oder 32-Bit-Integer), die nach Abschluß die Anzahl der 
tatsächlich gelesenen Zeilen enthält. 

Statt Anz kann auch der Ausdruck von TO Bis angegeben wer¬ 
den. Es werden dann die Zeilen ab dem Element von der Feld¬ 
variable bis zum Element Bis abgelegt 

Der Lesezeiger bleibt nach RECALL bei nicht geschlossenen 
Dateien auf dem Anfang der nächsten Zeile stehen. Das heißt, 
daß bei weiteren RECALL-Aufrufen ab dieser File-Position 
bzw. nur noch der verbleibende Dateirest gelesen wird. Soll wie¬ 
der ab Datei-Beginn gelesen werden, ist der File-Pointer durch 
SEEK #Kanal,0 wieder auf den Datei-Anfang zu richten. 


RECORD { REC } Satz-Pointer für GET#/PUT# setzen 


RECORD [#] Kanal,Satznummer 

Setzt den Satz-Zeiger für den nächsten GET#- oder PUT#-Zu- 
griff auf eine R-Datei. Wird beim nächsten GET# oder PUT# 
der Parameter "Satznummer" ausgelassen, wird der durch 
RECORD# aktualisierte Satz gelesen bzw. geschrieben. 
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RELSEEK { REt } File-Pointer verschieben 


RELSEEK #Kanal,H Offset 


RELSEEK (relativ Seek) verschiebt den File-Pointer der Datei 
mit der Kennung #Kanal relativ zur aktuellen Pointer-Position 
entweder in Richtung File-Ende oder File-Anfang um die mit 
"Offset" bestimmte Anzahl von Bytes. Im zweiten Fall (Richtung 
File-Anfang) ist dem Offset-Wert ein Minuszeichen voranzu¬ 
stellen. Beispiel: 


Open "U",#1,"Dateiname" 
Seek #1,InttLof(#1)/2) 

I 

Relseek #1,3 
Relseek #1,-6 


etc. 


! Datei öffnen 

I Der File-Pointer zeigt nun 
I auf das Byte in der Dateimitte 
! Der Zeiger wird in Richtung File-Ende 
! un drei Byte weitergesetzt 
! Der Zeiger wird in Richtung File-Anfang 
I sechs Byte zurückgesetzt. Er befindet 
I sich nun 3 Byte vor der durch SEEK 
! bestimmten Mittelposition. 

! Weiteres Programm 


Bei den Befehlen SEEK und RELSEEK ist darauf zu achten, 
daß nicht versucht wird, den Zeiger auf eine Position zu setzen, 
die in der angegebenen Datei nicht vorhanden ist, bzw. nicht 
vorhanden sein kann (kleiner Null oder größer File-Ende). Wird 
dies versucht, erscheint die Fehlermeldung "Seek falsch?". 


FHe-Polnter setzen 


SEEK { SEE } 


SEEK #Kanal,[-] Offset 

Mit diesem Befehl kann der File-Pointer der Datei mit der Ken¬ 
nung "#Kanal" auf ein durch "Offset" bestimmtes beliebiges Byte 
gesetzt werden. Diese neue Position bezieht sich entweder abso¬ 
lut auf den File-Anfang oder auf das File-Ende. Im zweiten Fall 
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(relativ zum File-Ende) ist dem ’Offset’-Wert ein Minuszeichen 
voranzustellen. Eine Anwendungsmöglichkeit finden Sie im 
RELSEEK-Beispiel. 


TOUCH { TOU } Datel-Zehelrrtrag aktualisieren 


TOUCH #Kanal 

Schreibt die aktuelle System-Zeitangabe (siehe TIMES) in die 
dafür vorgesehene Position des betreffenden Directory-Eintrags. 
#Kanal gibt dabei die Kennung der durch OPEN geöffneten 
Datei an. 


STORE { STÖR } String-Feld in Datei ablegen 


STORE #Kanal,Feld$() [,Anz] 

STORE speichert die Elemente eines durch Feld$() bestimmten 
String-Feldes der Reihe nach in der Datei mit der Kennung 
#Kanal. Als Endmarkierung wird jeder geschriebenen Zeile ein 
CR/LF (Carriage Return/Line Feed = CHR$(13)/CHR$(10)) an¬ 
gehängt. Durch den optionalen Parameter Anz kann bestimmt 
werden, wie viele Elemente maximal in der Datei gesichert wer¬ 
den sollen. Wird dieser Parameter ausgelassen, wird das kom¬ 
plette Feld gespeichert. 

Statt Anz kann wie beim RECALL-Befehl auch der Ausdruck 
Von TO Bis angegeben werden, so daß nur ein Teilfeld abge¬ 
speichert wird. 
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5.5.1 Funktionsweise einer Random-Access-Datei 

Wie die Behandlung von Variablenfeldern eine Sonderstellung 
einnimmt, so sind auch die Befehle zur Behandlung von 
Random-Access-Dateien (random access = wahlfreier Zugriff) 
eine besondere Erklärung wert. 

Alle anderen Zugriffsvarianten auf Disketten- bzw. Hard-Disk- 
Dateien arbeiten grundsätzlich seriell, d.h.: der Reihe nach. Es 
wird also eindimensional Zeichen für Zeichen nacheinander ge¬ 
lesen bzw. geschrieben. Diese Reihenfolge ist nur durch SEEK 
und RELSEEK veränderbar. 

Eine R-Datei ist vergleichbar mit einem zweidimensionalen 
Speicherfeld. Es können mehrere Datenblöcke unter einem ge¬ 
meinsamen Oberbegriff - hier der Dateiname - zusammengefaßt 
werden. Während die Elemente eines Variablenfeldes durch die 
Indizes repräsentiert werden, können hier die Datenblöcke (Ele¬ 
mente der 1. Dimension) durch die Satznummer angesprochen 
werden. Innerhalb eines Blocks befinden sich dann die zusam¬ 
mengehörigen Einträge (Elemente der 2. Dimension). Um eine 
solche Datei anzulegen, muß sie zuerst geöffnet werden. Ihr 
Sonderstatus wird dabei durch den Arbeitsmodus R kenntlich 
gemacht. 

Open .Dateiname,Satzlänge 

Nachdem dieses getan wurde, kann mit dem Befehl FIELD be¬ 
stimmt werden, in wieviel einzelne Einträge ein Satz unterteilt 
sein soll. Gleichzeitig wird angegeben, wie viele Zeichen (Bytes) 
jedem einzelnen dieser Einträge zuzuteilen sind. Da die Länge 
des gesamten Datensatzes durch die Angabe von Satzlänge im 
OPEN-Befehl bestimmt wird, ist es einleuchtend, daß die 
Summe der Zeichen der angegebenen Einträge insgesamt nicht 
größer sein darf als die Satzlänge. Sie darf aber kleiner sein. Die 
einmal so bestimmte Größe eines Satzes und seine Einteilung 
sollte von nun an nicht mehr verändert werden. Tun Sie es den¬ 
noch, ist die korrekte Übergabe der Daten an die zugeordneten 
Variablen nicht mehr gewährleistet. Natürlich können Sie neue 
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Datenfelder in einen neu definierten Datensatz mit demselben 
Dateinamen einsetzen, nur sind dann die vorher darin enthal¬ 
tenen Daten nicht mehr zu erreichen. 

Zum anderen dürfen die durch PUT# in die Feldeinteilung ge¬ 
schriebenen Datensätze in ihrer Größe nicht mehr variiert wer¬ 
den, da sonst Daten des folgenden Satzes mit Daten des aktuellen 
Satzes kollidieren. Um die festgelegten Satz- und Eintragslängen 
immer einzuhalten, werden zur Vorbereitung der Einträge die 
Befehle LSET und RSET verwendet. Diese fügen die über¬ 
gebenen Texte in die definierten FIELD-String-Variablen ein, 
ohne deren Länge zu verändern. 

Es ist problemlos möglich, eine installierte Random-Access-Da- 
tei zu erweitern oder zu ändern, indem man der Datei einfach 
weitere Sätze per PUT#-Anweisung anhängt bzw. in diese ein¬ 
fügt. Einmal geschriebene Sätze lassen sich jedoch nicht bzw. 
nur über Umwege wieder entfernen. Sie könnten z.B. ein solches 
File komplett über RECALL einiesen, dann durch INSERT oder 
DELETE bearbeiten und abschließend durch STORE wieder 
zurückschreiben. 

Erweiterungen innerhalb des Satzgefüges (z.B. zusätzliche Ein¬ 
träge) sind nur möglich, indem eine neue Datei mit anderem 
FIELD-Aufbau eingerichtet wird und die Datensätze der alten 
Datei nach dem Eimerketten-Prinzip gelesen, erweitert und dann 
komplett an die neu eingerichtete R-Datei weitergeleitet werden. 

Achten Sie darauf, daß bei jedem OPEN für eine schon einge¬ 
richtete Datei dieser Art immer exakt dieselbe Datensatzlänge 
angegeben wird bzw. die neu angegebene Satzlänge größer als 
die vorhandene ist. Wird nämlich keine Satzlänge genannt, wird 
diese vom Interpreter selbsttätig auf 128 Bytes festgelegt. Falls 
Sie die angesprochene Datei vorher größer dimensioniert hatten, 
wird beim Versuch, ein Feld anzusprechen, das mit seiner Länge 
über die angegebene Satzlänge hinausreicht, die Fehlermeldung 
"File-Ende erreicht" ausgegeben. 


Eine Grafik soll das Prinzip verdeutlichen: 
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< 1. Datensatz > 

< l Satzlänge 1 z.B. 45 Byte> 

< 2. Datensatz > 

< Satz länge wie vor > 

< n. Datensatz 

Eintragi 

z.B. 

10 Byte 

Eintrag2 

z.B. 

20 Byte 

Eintrag3 

z.B. 

15 Byte 

Eintragi 
wie vor: 
10 Byte 

Eintrag2 
wie vor: 
20 Byte 

Eintrag3 
wie vor: 
15 Byte 

::: — i-> 
_• 


Die Anzahl der Sätze, die Größe der einzelnen Einträge sowie 
die Satzlänge können von Ihnen frei bestimmt werden. Einge¬ 
schränkt werden Sie nur durch eine maximale Datensatzlänge 
von 65535 Byte und durch den Umstand, daß die Summe aller 
Eintragslängen die angegebene Satzlänge nicht überschreiten 
darf. 

Zum tieferen Verständnis folgt nun ein Beispielprogramm, das 
Ihnen als Anregung zu eigenen Experimenten dienen soll. Dieses 
Programm besteht aus vier voneinander unabhängigen Blöcken. 
Im ersten Block wird eine Random-Access-Datei mit einer 
Satzlänge von 90 Byte installiert. Diese 90 Byte werden mit der 
FIELD-Anweisung in drei Einträge (40/30/20 Byte) unterteilt. 
Gleichzeitig werden die für die Aufnahme der Einträge vorge¬ 
sehenen String-Variablen mit Leerzeichen gefüllt. Im Anschluß 
daran werden in der FOR/NEXT-Schleife sechs Datensätze ein¬ 
gelesen. Nach der Eingabe der jeweiligen Einträge werden die 
Inhalte der INPUT-Variablen durch LSET linksbündig in die 
vorgesehenen - und vorbereiteten - Puffer-Strings eingesetzt. Zu 
guter Letzt wird dann dieser Datensatz mit PUT# unter Angabe 
der Datensatznummer (hier der Schleifenindex 1%) in die Datei 
geschrieben. 

Block 2 demonstriert das Erweitern und Ändern einer bestehen¬ 
den Datei. Hier sind die Texte willkürlich vorgegeben und kön¬ 
nen natürlich von Ihnen frei bestimmt werden. Die letzten bei¬ 
den Programmblöcke zeigen zwei Möglichkeiten, die einzelnen 
Sätze aus der Datei wieder herauszulesen und auszugeben. 
Beispiel: 
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' Schreib-Variante 1: 
1 (Datei-Erröffnung) 


OPEN "R",#1,"Adress.Dat",90 ! R-Datei erstmals öffnen 
FIELD #1,40 AS zeile.1$,30 AS zeile. 2S, 20 AS zeile.3$ 

1 ! Satz einrichten 

FOR iX=1 TO 6 ! 6 Sätze >- 

PRINT AT(20,11);"Name :»; 

FORM INPUT 40,n$ I Eintrag 1 eingeben 

PRINT AT(20,12),-"Vorname 

FORM INPUT 30,vS ! Eintrag 2 eingeben 

PRINT AT(20,13);"Telefon 

FORM INPUT 20,t$ ! Eintrag 3 eingeben 

CLS ! BiIdschirm klar 

LSET zeile.1$=nS ! Eintrag 1 linksbündig einfügen 

LSET zeile. 2S=vS I 2 

LSET zeile.3S=tS ! 3 

PUT #1,IX I Datensatz in R-File eintragen 

NEXT iX I nächster Satz <- 

CLOSE #1 I R-File schließen 

1 Schreib-Variante 2 : 

' (nachträgliches An-/Einfügen) 


OPEN "R",#1,"Adress.Dat",90 • Öffnen (Satzlänge beachten) 
FIELD #1.40 AS zeile.1$.30 AS zeile.2S.20 AS zeile.3S 


LSET zeile. 1$='*Satz 7/Zeile 
LSET zeile.2S="Satz 7/Zeile 
LSET zeile.3$="Satz 7/Zeile 
PUT #1,7 

LSET zeile.1$="Satz 2/Zeile 
LSET zeile.2$="Satz 2/Zeile 
LSET zeile.3$="Satz 2/Zeile 
PUT #1,2 
CLOSE #1 

1 Lese-Variante 1: 

1 (seriell Einlesen) 


! Satzeinteilung wie oben 
1" ! Eintrag 1 linksbündig 

2» i .11. 2 

3» j -.1. 3 .... 

• neuen Datensatz nachtragen 
1" I Eintrag 1 linksbündig 
2 » | 2 
311 ; . 11 . 3 -n. 

! 2. Datensatz überschreiben 
! und wieder schließen 


OPEN "R",#1,"Adress.Dat",90 • Öffnen (Satzlänge beachten) 
FIELD #1,40 AS zeile.1$,30 AS zeile.2S,20 AS zeile.3S 
1 I Satzeinteilung wie oben 


FOR iX=1 TO 7 
GET #1,iX 

1 

PRINT "Name 
PRINT "Vorname 
PRINT »Telefon 
PRINT 
NEXT iX 
CLOSE #1 
CLS 

PAUSE 200 


! 7 Datensätze >- 

! lesen und die Einträge den 
! FIELD-Variablen zuweisen 
";zeile.1$ ! Eintrag 1 ausgeben 
";zeile. 2 $ ! -"- 2 -»- 

";zeile.3$ ! -"- 3 -»- 

! Leerzeile 

! Nächster Satz <- 

! File schließen 
! BiIdschirm klar 
! Kleine Pause 


Lese-Variante 2: 
(wahlfrei Einlesen) 




Ein-/Ausgabebefehle 


115 


OPEN "R",#1,"Adress.Dat H ,90 ! Öffnen (Satzlänge beachten) 
FIELD #1,40 AS eintrag1S,30 AS eintrag2S,20 AS eintrag3$ 


1 ! 

DO ! 

PRINT AT(20,11);"Satznumner 


REPEAT ! 

INPUT satzX ! 
UNTIL satz%<8 i 
EX IT IF satz%=0 ! 
GET #1,satz% ! 


PRINT AT(20,10);"Name : 
PRINT AT(20,11);"Vorname : 
PRINT AT(20,12);"Telefon : 
PRINT AT(20,15);"<Taste>" 


REPEAT ! 

UNTIL LEN(INKEYS) ! 

CLS I 

LOOP ! 


Satzeinteilung uie gehabt 

Lese-Schleife >- 

eingeben (0=Abbruch): 

Eingabe-Schleife >-. 

Satznunner holen 
Bis gültige Satznummer <--* 
A-Z-Taste oder 0 gedrückt? 
Gewünschten Datensatz lesen 
";eintrag1$ ! Eintrag 1 ausgeben 
";eintrag2S ! -"- 2 -"- 

";eintrag3$ ! -"- 3 

Warte ... >-. 

... auf Taste <- 1 

BiIdschirm klar 

Wieder von vorn <- 


5.6 Port-Ein-/-Ausgabebefehle 


INP 


Daten byteweise von Peripherie lesen 


Var=INP(#Kanal) 

Diese Funktion dient dazu, ein einzelnes Byte aus einer Datei zu 
lesen. In der nachgestellten Klammer wird die Nummer des zu¬ 
gehörigen Datenkanals übergeben. 


out { ou } Daten byteweise an Peripherie ausgeben 


OUT #Kanal,Byte1 [,Byte2 [,Byte3,...]] 

Der Befehl OUT stellt das Gegenstück zu INP() dar. Hiermit 
lassen sich einzelne Byte-Werte an einen bestimmten Datenkanal 
senden. Beispiel: 


Out #1,65 
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Schreibt den ASCII-Wert des Zeichens A (ASCII 65) an die 
aktuelle File-Pointer-Position der Datei mit der Kanalnummer 1. 


5.7 Die DOS-Bibliothek des Amiga 

Die DOS-Bibliothek (zu gut englisch: DOS-Library) stellt - 
ebenso wie die anderen Bibliotheken des Amiga - eine Samm¬ 
lung von Routinen dar, die dem Programmierer in jeder Pro¬ 
grammiersprache zur Verfügung stehen. Die Routinen der DOS- 
Bibliothek sind hauptsächlich zur Vereinfachung des Zugriffs 
auf die verschiedenen Peripheriegeräte, speziell auf die Massen¬ 
speicher (Floppy, Harddisk usw.), implementiert worden. 

Zum Glück enthält GFA-BASIC ja eine Vielzahl sehr kom¬ 
fortabler Ein-/Ausgabebefehle. Warum dann überhaupt noch mit 
der DOS-Bibliothek arbeiten? Nun, in einigen Situationen, zum 
Beispiel dann, wenn Sie das Directory einer Diskette analysieren 
möchten, kann die DOS-Bibliothek überaus nützlich sein, da 
GFA-BASIC keine vergleichbaren Befehle zur Verfügung stellt. 

Auf der anderen Seite gibt es aber auch einige Routinen, die 
man in GFA-BASIC guten Gewissens vergessen kann, nicht zu¬ 
letzt, weil sie zum Teil als wesentlich komfortablere GFA- 
BASIC-Befehle implementiert sind. Trotzdem möchte ich Ihnen 
diese Routinen nicht vorenthalten. Die Erklärungen beschränken 
sich in diesem Fall allerdings auf das Notwendigste. Nähere In¬ 
formationen zu diesen Routinen (und natürlich auch zu allen an¬ 
deren) finden Sie zum Beispiel in Amiga Intern, Intern 2 oder 
im großen AmigaDOS-Buch, beide von DATA BECKER. 

Wie kann man nun auf die Routinen der DOS-Bibliothek zu¬ 
greifen? Dies gestaltet sich - im Gegensatz etwa zu AmigaBASIC 
- erfreulich einfach: Alle Routinen stehen (ohne irgendwelche 
öffnungsz eremonien) jederzeit als GFA-BASIC-Funktionen zur 
Verfügung! 

Vom GFA-BASIC-Editor wird sogar die korrekte Syntax der 
Funktionen überprüft. Fehlermeldungen des Betriebssystems 
(aufgrund semantisch unkorrekter Angaben) können in der Regel 
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allerdings nicht abgefangen werden, d.h. Sie bekommen ent¬ 
weder eine AmigaDOS-Fehlermeldung oder - im schlimmsten 
Fall - eine sog. Guru-Meditation, nach der in der Regel nur 
noch ein Reset hilft. Also Vorsicht! Doch schauen wir uns die 
Routinen im einzelnen an; 31 sind es insgesamt. 

Anmerkung: Bei allen Funktionen, die keine Rückgabewerte 
liefern, verwenden Sie zum Aufruf am besten den Befehl VOID 
(siehe auch Kapitel 12). 


Allgemeine Ein-/Ausgabefunktionen 

Open Datei öffnen 

Filehandle = Open (Name, Modus) 

öffnet die Datei, auf deren Name der Parameter ’Name’ zeigt. 
Achtung: Der Namensstring muß mit einem Nullbyte abge¬ 
schlossen sein! Diese sog. C-Konvention für Strings gilt für 
praktisch alle Stringübergaben an Betriebssystemfunktionen. 

Modus enthält wahlweise den Wert 1005 (eine bestehende Datei 
wird zum Schreiben oder Lesen geöffnet) oder 1006 (eine neue 
Datei wird erzeugt und zum Schreiben geöffnet. Achtung: Eine 
evtl, bereits existierende Datei gleichen Namens wird dabei 
überschrieben!). 

Oder 1004 (wie 1005, aber diese Datei kann dann nicht mehr 
von anderen Programmen geöffnet werden, solange bis diese 
wieder geschlossen wird; Sie haben dann also exclusiven Zugriff 
auf diese Datei). 

In Filehandle wird ein Zeiger auf die sog. Filehandle-Struktur 
der Datei übergeben. Diese enthält wichtige Informationen über 
die Datei, die aber im Normalfall nur für die interne Verwal¬ 
tung von AmigaDOS von Bedeutung sind. Konnte die Funktion 
nicht ausgeführt werden, enthält Filehandle den Wert Null. 
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Bei den weiteren Dateifunktionen hat Filehandle dieselbe Funk¬ 
tion wie die Dateinummer in GFA-BASIC: Sie dient zur Kenn¬ 
zeichnung und leichteren Identifizierung der Datei. 


Close Datei schließen 

VOID Close (Filehandle) 

Schließt die mit Open geöffnete Datei. Filehandle enthält den 
bei Open erhaltenen Zeiger auf die Filehandle-Struktur. 


Read Daten lesen 

Anzahl = Read (Filehandle, Puffer, Länge) 

Read liest aus der durch Filehandle bezeichneten Datei bis zu 
'Länge’ Bytes und legt sie im Speicher ab Adresse 'Puffer' ab. In 
'Anzahl' wird die Anzahl der tatsächlich gelesenen Bytes zurück¬ 
gegeben. Ist dieser Wert gleich -1, so trat während des Lesevor¬ 
gangs ein Fehler auf. 


Write Daten schreiben 

Anzahl = Write (Filehandle, Puffer, Länge) 

Write schreibt in die durch Filehandle bezeichnete Datei 'Länge' 
Bytes aus dem Speicher ab der Adresse 'Puffer'. In 'Anzahl' wird 
die Anzahl der tatsächlich geschriebenen Bytes zurückgegeben. 
Ist dieser Wert gleich -1, so trat während des Schreibvorgangs 
ein Fehler auf. 


Seek Datenzeiger positionieren 

Position = Seek (Filehandle, Abstand, Modus) 

Seek positioniert bzw. verstellt den internen Zeiger der mit File¬ 
handle bezeichneten Datei. Dieser Zeiger zeigt jeweils auf das 
nächste zu lesende oder zu schreibende Byte der Datei. 

'Modus' gibt an, ob der in 'Abstand' angegebene Wert den Zei¬ 
ger relativ zum Dateianfang (Modus=-l), zur aktuellen Position 
(Modus=0) oder zum Dateiende (Modus=l) verstellen soll. Dabei 
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sind in 'Abstand' auch negative Werte zugelassen; der Zeiger 
wird dann rückwärts verschoben. 

In 'Position’ wird die nach Ausführung der Funktion aktuelle 
Position des Zeigers zurückgegeben. Um die momentane Position 
des Zeigers zu erhalten, stellt man 'Modus' einfach auf 0 
(=Verschiebung relativ zur aktuellen Position) und gibt als Ab¬ 
stand 0 Bytes an: 


Input Standard-Eingabekanal ermitteln 

Position = Seek(Filehandle,0,0) 

Filehandle = lnput() 

Gibt das Filehandle des Standard-Eingabekanals zurück. 


Output Standard-Ausgabekanal ermitteln 

Filehandle = OutputO 

Gibt das Filehandle des Standard-Ausgabekanals zurück. 


WaitForChar Auf Empfang eines Zeichens warten 

Status = WaitForChar (Filehandle, Timeout) 

WaitForChar wartet die in Timeout angegebene Anzahl von 
Mikrosekunden auf den Empfang eines Zeichens aus der mit 
Filehandle bezeichneten Datei. 

Wird in dieser Zeit kein Zeichen empfangen, so erhält Status 
den Wert 0, andernfalls den Wert -I. Das Zeichen kann dann 
mit der Funktion Read ausgelesen werden. 


Islnteractive Kanal-Typ ermitteln 

Status = Islnteractive (Filehandle) 

Islnteractive ermittelt, ob es sich bei der durch Filehandle be¬ 
zeichneten Datei um eine interaktive Datei (Ein- und Ausgaben 
sind möglich) handelt (Status=-1) oder nicht (Status=0). 
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loErr Ein-/Ausgabefehlernummer ermitteln 

Fehler = loErr 0 

In 'Fehler’ wird die Nummer des zuletzt (bei der Abarbeitung 
einer der anderen Funktionen) aufgetretenen Fehlers zurückge¬ 
geben. 

Bei den anderen Funktionen selbst wird ein aufgetretener Fehler 
meist durch eine Null als Rückgabewert signalisiert. Mit Hilfe 
von loErr erfährt man dann die genaue Fehlerursache. 


- Disketten- und Dateiorganisation - 

Lock Zugriffsstatus bestimmen 

Lockstruktur = Lock (Name, Modus) 

Lock sucht nach einer Datei oder einem Unterdirectory mit dem 
Namen, auf den 'Name' zeigt, und erzeugt dafür eine sog. Lock- 
Struktur, deren Adresse in der Variablen ’Lockstruktur’ über¬ 
geben wird. Diese Lock-Struktur (bzw. deren Adresse) wird bei 
den folgenden Funktionen benötigt, um auf eine Datei (oder ein 
Unterdirectory) überhaupt zugreifen zu können. 

'Modus' gibt an, welcher Art der Zugriff auf die betr. Datei sein 
soll. Modus=-2 bedeutet, daß aus der Datei von mehreren Pro¬ 
grammen aus gelesen werden kann; Modus=-l bestimmt, daß die 
Datei nur vom aktuellen Programm aus beschrieben werden 
kann. 


DupLock Lock-Struktur kopieren 

Lockstruktur2 = DupLock (Lockstrukturl) 

DupLock kopiert eine durch ihre Adresse bezeichnete Lock- 
Struktur ('Lockstrukturl') und übergibt in ’Lockstruktur2’ die 
Adresse der Kopie. Wichtig: Es können nur Lock-Strukturen ko¬ 
piert werden, die zum Lesen zugelassen sind (Modus=-2 bei 
Lock, siehe dort). 
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UnLock Lock-Struktur entfernen 

VOID UnLock (Lockstruktur) 

UnLock entfernt eine mit Lock oder DupLock erzeugte Lock- 
Struktur aus dem Speicher. In ’Lockstruktur’ wird dazu die 
Adresse der Lock-Struktur übergeben. 

Haben Sie bis hierher durchgehalten? Ja, dann werden Sie gleich 
sehen, daß es sich gelohnt hat. Während die zuvor besprochenen 
Funktionen doch wohl mehr etwas für den Spezialisten waren, 
bringen Ihnen die nun folgenden Funktionen ganz handfeste 
Informationen, die man so direkt von GFA-BASIC aus nicht er¬ 
halten kann. 


Info Disketteninformationen holen 

Status = Info (Lockstruktur, Infoadresse) 

Info erzeugt im Speicher ab ’lnfoadresse’ einen Infoblock mit 
diversen Informationen über die durch ’Lockstruktur’ bezeich¬ 
nte Diskette. ’Lockstruktur’ muß entweder auf den Namen der 
Diskette oder auf eine Datei oder ein Unterdirectory der Dis¬ 
kette zeigen. Anstelle des Diskettennamens kann auch eine 
Laufwerksbezeichnung genommen werden (siehe Beispiel). 

Achtung: Bei ’lnfoadresse’ muß es sich unbedingt um eine 

Adresse handeln, die durch 4 teilbar ist! Zur Reser¬ 
vierung des Speicherplatzes für die Infotabelle sollten 
Sie daher immer die Funktion MALLOC verwenden, 
da durch MALLOC reservierte Bereiche grundsätz¬ 
lich an einer durch 8 teilbaren Adresse beginnen. 
Der durch Info erzeugte Infoblock hat folgenden 
Aufbau: 


Byte 

Bedeutung 

0-3 

Anzahl der Diskettenfehler 

4-7 

installierte Disketteneinheit 

8-11 

Diskettenstatus: 80 Diskette ist schreibgeschützt / 82 
Diskette ist beschreibbar. 

12-15 

Gesamtaniahl der Diskblöcke 

16-19 

Anzahl der belegten Blöcke 

20-23 

Anzahl der Bytes je Block 




122 


Das große GFA-BASIC-Buch 


Byte Bedeutung 


24-27 Diakettentyp: -1 Keine Diskette eingelegt / BAD Dis¬ 

kette unlesbar / DOS DOS-Diskette 
28-31 Zeiger auf Diskettennamen 

32 Diskette aktiv (<>0) / inaktiv (0) 


Um an die einzelnen Informationen zu gelangen, verwenden Sie 
entweder PEEK und Co. oder einen der Speicherzugriffsbefehle 
aus Kapitel 12 (CARD{) usw.). Am interessantesten dürfte die 
Möglichkeit sein, zu erfahren, ob eine in einem Laufwerk ein¬ 
gelegte Diskette schreibgeschützt ist. Zwar reagiert AmigaDOS 
mit einem entsprechenden System-Requester auf einen Schreib¬ 
zugriff auf eine Diskette mit aktiviertem Schreibschutz. Wenn 
man den Schutzstatus aber schon vor dem Schreibzugriff ermit¬ 
telt, kann man natürlich ganz individuell darauf reagieren. Zu 
diesem Zweck habe ich die folgende Funktion geschrieben: 


FUNCTION disktest(driveS) 

LOCAL driveX,lockX,adrX,statusX 
drive$=drive$+CHR$(0) 
driveX=VARPTR(drive$) 
lock%=Lock(drive%,-2) 
adrX=MALL0C(36,1> 

VOID Info(lockX.adrX) 
statusX=PEEK(adrX+11) 

VOID MFREE(adrX,36> 

IF statusX=82 THEN 
RETURN TRUE 
ELSE 

RETURN FALSE 
ENDIF 
ENDFUNC 


IdriveS enthält Laufwerksbezeichnung 
1 lokale Variablen 
•String muß mit 0 enden 
IZeiger auf Stringanfang 
•Lockstruktur (lockX enthält Adresse) 
136 Byte für Infostruktur reservieren 

• Info-Funktion aufrufen 
•Diskettenstatus holen 

• reservierten Speicher frei geben 
•Diskette beschreibbar? 

•ja, dann -1 zurückgeben 
IDiskette schreibgeschützt 
10 zurückgeben 


Wie nutzt man nun ’Disktest’? Nehmen wir einmal an, Sie 
möchten feststellen, ob die in Laufwerk DFO: eingelegte Diskette 
beschreibbar ist. Das könnte dann zum Beispiel so aussehen: 

IF adisktest("DFO:")=FALSE THEN 
ALERT 0,"Bitte Schreibschutz entfernen!", 1,"OK",d% 

ENDIF 

1 Schreibzugriff . 

CreateOir neues Verzeichnis erzeugen 
Lockstruktur = CreateOir (Name) 
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Erstellt im aktuellen Directory ein neues Unterdirectory mit dem 
Namen, auf den ’Name’ zeigt. Dabei wird - analog zu der 
Funktion Lock - eine Lock-Struktur erzeugt, deren Adresse in 
’Lockstruktur’ zurückgegeben wird. 


CurrentDir aktuelles Verzeichnis bestimmen 

alte Lockstruktur = CurrentDir (Lockstruktur) 

Erhebt das durch seine Lock-Struktur bezeichnete Unterdirec¬ 
tory zum aktuellen Directory. Zurückgegeben wird die Adresse 
der Lock-Struktur des zuvor aktuellen Directories. 


ParentDir übergeordnetes Verzeichnis ermitteln 

neue Lockstruktur = ParentDir (Lockstruktur) 

Ermittelt das übergeordnete Directory des durch seine Lock- 
Struktur bezeichneten Unterdirectories und übergibt die Adresse 
dessen Lock-Struktur. 


Examine Fileinformationen holen 

Status = Examine (Lockstruktur, Infoadresse) 

Examine erzeugt im Speicher ab ’lnfoadresse’ einen Infoblock 
mit diversen Informationen über die/das durch ’Lockstruktur’ 
bezeichnete Datei/Directory. 

Der Infoblock hat folgenden Aufbau: 


Byte 


Bedeutung 


0-3 Diskettennummer 

4-7 Eintragstyp (>0: Directory; sonst: Datei) 

8-115 Eintragsname (nur 30 Byte nutsbar) 

116-119 Zugriffsstatus (siehe auch Funktion SetProtection) 

Bit 0: Datei nicht löschbar 
Bit 1: Datei nicht ausführbar 
Bit 2: Datei nicht Überschreibbar 
Bit 3: Datei nicht lesbar 

120-123 Eintragstyp (siehe oben) 
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Byte Bedeutung 

124-127 Dateilänge in Bytes 

128-131 Anzahl der belegten Blocks 

132-143 Erstellungsdatum 

144-259 Kommentar (nur 80 Byte nutzbar) 

Um die Informationen auszulesen, gehen Sie wie folgt vor: 

1 dnameS enthält Directory-/Dateinamen 
dnameS=dname$+CHRS(0) 1 String muB mit 0 enden 

dnameX=VARPTR(dnameS) (Zeiger auf Stringanfang 

lockX=Lock(dnameX,-2) (Lockstruktur erzeugen 

infoadrX=MALL0C(260,1) 1260 Byte für Infoblock reservieren 

VOID Examine(lockX,infoadrX) (Funktion aufrufen 

Nun können Sie leicht auf die einzelnen Daten zugreifen: 

laengeX={infoadrX+124> (Datei länge 
kom$=CHAR{infoadrX+144> (Kommentar 

usw. Zum Schluß vergessen Sie bitte nicht, den durch MALLOC 
belegten Speicher mit 

VOID MFREE(infoadrX,260) 

wieder freigeben zu lassen! Examine läßt sich übrigens auch 
dazu verwenden, den Namen einer Diskette zu ermitteln. Das 
kann zum Beispiel dann sehr nützlich sein, wenn Sie festeilen 
wollen, ob die richtige Diskette in das Laufwerk eingelegt 
ist.Dazu übergeben Sie in dnameS einfach die 
Laufwerksbezeichnung (z.B. DFO:). Mit 

diskS=CHAR{infoadrX+8) 


erhalten Sie dann den Namen der Diskette. 


ExNext nächsten Directory-Eintrag ermitteln 

Status = ExNext (Lockstruktur, Infoadresse) 

ExNext ermittelt den jeweils nächsten Eintrag eines durch seine 
Lock-Struktur bezeichneten Directories und legt die Informa¬ 
tionen über diesen Eintrag in dem durch ’lnfoadresse’ bezeich¬ 
neten Infoblock ab (siehe Examine). Mit ExNext läßt sich nach 
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und nach das gesamte Inhaltsverzeichnis einer Diskette auslesen. 
Ist kein weiterer Eintrag vorhanden, wird in 'Status' eine Null 
zurückgegeben. 


DeleteFile Datei löschen 

Status = DeleteFile (Name) 

Löscht eine Datei oder ein Unterdirectory. (’Name’ enthält die 
Adresse des Namens.) Wichtig: Ein zu löschendes Unterdirectory 
darf keine Dateien mehr enthalten! Diese müssen gegebenenfalls 
zuvor - mit DeleteFile - einzeln gelöscht werden. 


Rename Datei umbenennen 

Status = Rename (alterName, neuer Name) 

Benennt die Datei oder das Directory ’alter_Name’ in 
'neuer Name’ um. 


SetProtection Dateistatus setzen 

Status = SetProtection (Name, Modus) 

Verändert den Zugriffsstatus der Datei oder des Unterdirectories 
'Name'. In 'Modus' haben nur die untersten vier Bits eine Be¬ 
deutung (jeweils, wenn gesetzt): 


Bit 0: Datei nicht löschbar 
Bit 1: Datei nicht ausführbar 
Bit 2: Datei nicht Uberschreibbar 
Bit 3: Datei nicht lesbar 


Beispiel: 

dname$="Dateiname"+CHR$(0) !beliebiger Name 

dname=VARPTR(dname$) IZeiger darauf 

modus=2‘0 OR 2‘2 IDatei nicht löschbar/nicht 

überschreibbar 

Status=SetProtection(dname,modus) IModus setzen 


Trat kein Fehler auf, enthält 'Status' anschließend den Wert 
TRUE (-1). 
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SetComment Dateikommentar setzen 

Status = SetComment (Name, Kommentar) 

Versieht die Datei oder das Unterdirectory ’Name’ mit einem 
Kommentar, der bis zu 80 Zeichen lang sein darf. Beispiel: 

dnameJ="Dateiname"+CHR$(0) 'beliebiger Name 

dname=VARPTR(dname$) 'Zeiger darauf 

komS="Kommentar"+CHR$(0) {beliebiger Kommentar bis 80 Zeichen 

kom=VARPTR(kom$) !Zeiger darauf 

status=SetComment(dname,kom) !Kommentar setzen 


Lief alles glatt, so enthält 'Status’ anschließend den Wert TRUE 
(-1). Zum Lesen der an eine Datei angehängten Kommentare 
verwenden Sie das CLI-Kommando List. List muß dazu mit dem 
GFA-BASIC-Befehl EXEC aufgerufen werden. Zum Beispiel 
listet EXEC "list df0:",0,0 alle Dateien der Diskette im Laufwerk 
dfO: samt ihren evtl, vorhandenen Kommentaren auf. Die Aus¬ 
gabe erfolgt dabei in ein CLI-Fenster (nicht in das GFA- 
BASIC-Ausgabefenster). 


Prozeß-Organisation - 


CreateProc neuen Prozeß erstellen 

Prozess = CreateProc(Name, Prior, Segment, Stack) 

Erstellt unter dem Namen, auf den 'Name' zeigt, eine neue 
Prozeß-Struktur. 


DeviceProc den I/O verwendenden Prozeß ermitteln 

Prozeß = DeviceProc(Name) 

Übergibt in 'Prozeß' die Identifikationsnummer des Prozesses, 
der im Moment den mit 'Name' angegebenen Ein-/Ausgabekanal 
verwendet. 
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Delay aktuellen Prozeß anhalten 

VOID Delay (Zeit) 

Hält den aktuellen Prozeß um die in 'Zeit' angegebene Anzahl 
von 1/50 Sekunden an. 


Exit Prozeß beenden 

VOID Exit (Parameter) 

Beendet den laufenden Prozeß (bzw. das laufende Programm) 
und gibt die dem Prozeß zugeteilten Speicherbereiche wieder 
frei. 


LoadSeg Programmdatei laden 

Segment = LoadSeg (Name) 

Lädt die Programmdatei ’Name’ in den Speicher In 'Segment’ 
wird die Adresse des ersten Programm-Moduls zurückgegeben. 


UnLoadSeg geladene Programmdatei löschen 

VOID UnLoadSeg (Segment) 

Löscht eine mit LoadSeg geladene Programmdatei und gibt den 
verwendeten Speicherplatz wieder frei. 'Segment' enthält die 
Adresse des ersten Programm-Moduls (siehe auch LoadSeg). 


DateStamp Datum und Uhrzeit ermitteln 

VOID DateStamp (Adresse) 

Übergibt in drei Langworten (auf die 'Adresse' zeigt) das aktu¬ 
elle Datum im AmigaDOS-Format. 


Execute CLI-Kommando ausführen 

Status = Execute (Kommando, Input, Output) 

Execute führt ein beliebiges CLI-Kommando aus. Dazu wird in 
'Kommando' ein Zeiger auf den Kommandotext übergeben. In- 
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put und Output enthalten das Filehandle des gewünschten Ein- 
bzw. Ausgabekanals. 

Anmerkung: Die DOS-Funktionen GetPacket und QueuePacket 
sind im Augenblick von GFA-BASIC aus nicht direkt ansprech¬ 
bar. 


5.8 Drucker-Anweisungen 


HARDCOPY { H } (Teil-) Bildschirm auf Drucker ausgeben 


HARDCOPY 

HARDCOPY Rastport, Colormap, Modi, Abst_l, Abst r, Breite, Höhe, 
Spalten, Zeilen, Flags 
HARDCOPY Flags 

HARDCOPY erzeugt einen Grafikausdruck des aktuellen Screens 
auf dem Drucker. Dabei werden die Druckereinstellungen aus 
den Preferences verwendet. Damit HARDCOPY einwandfrei ar¬ 
beitet, muß auf dem betr. Screen mindestens ein Fenster geöff¬ 
net sein. 

Die zweite und dritte Syntaxversion erlaubt es, den Ausdruck 
auf vielfältigste Art und Weise zu beeinflussen. Schauen wir uns 
die Parameter im einzelnen an: 


Rastport: Adresse des Rastports, von dem die Hardcopy 

gemacht werden soll. 

Colormap: Adresse der Colormap, in der die Farben des Bil¬ 

des enthalten sind. 


Modi: 


Enthält die Auflösungsmodi, wie in der 
Viewport-Struktur angegeben. 


Abst 1: 


Abstand zum linken Rand des Rastports 
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Abst_r: 

Breite: 

Höhe: 

Spalten: 

Zeilen: 

Flags: 


Abstand zum rechten Rand des Rastports 

Breite des auszudruckenden Bereichs 

Höhe des auszudruckenden Bereichs 

Anzahl der zu druckenden Spalten 

Anzahl der zu druckenden Zeilen 

Hier sind nur die untersten 12 Bit des Wertes von 
Interesse. Jedes Bit hat eine andere Bedeutung: 


Bit Bedeutung, wenn gesetzt 

0 Der Wert in 'Spalten' gilt als 1/1000- Zoll- Angabe. 

1 Der Wert in 'Zeilen' gilt als 1/1000- Zoll-Angabe. 

2 Es wird in Maximalbreite gedruckt. 

S Es wird in Maximalhöhe gedruckt. 

4 Der Wert in 'Spalten' wird als ein Teiler der Maxi¬ 
malbreite angesehen. 

5 Der Wert in 'Zeilen' wird als ein Teiler der Maximalhöhe 
angesehen. 

6 Bewirkt eine sentrierte Ausgabe des Druckbildes. 

7 Das Seitenverhältnis auf dem Papier soll dem Seitenver¬ 
hältnis auf dem Bildschirm entsprechen. 

8-10 Mit diesen Bits läßt sich festlegen, in welcher Auflösung 

die Hardcopy ausgegeben werden soll. '001' druckt in der 
niedrigsten Auflösung des Druckers, '111' in der 
höchsten. 

11 Der Seitenvorschub am Ende der Ausgabe wird unter¬ 

drückt. Dadurch lassen sich mehrere Hardcopies 'nahtlos' 
aneinanderfügen. 


Anmerkung: Was ein Rastport, ein Viewport oder eine Colormap 
ist und wie Sie deren Adressen und sonstigen Werte ermitteln 
können, erfahren Sie im Grafikkapitel. Beispiel: 

OPENU 5 (Kleines, zentriertes BASIC-Fenster 

GRAPHMOOE 1 !Grafikmodus einstellen 

ELLIPSE 150,160,50,40 'Zwei Ellipsen 

ELLIPSE 150,160,80,25 'zeichnen 

HARDCOPY IWorkbench-Screen ausdrucken 

CLOSEU 5 IFenster schließen 
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Das Programm zeichnet eine kleine Grafik auf den Bildschirm 
und bringt dann den gesamten Workbench-Screen zu Papier. 


LUST { LL } Programm-Lteting ausdrucken 


LUST 

Soll das aktuelle Programm-Listing auf den Drucker übertragen 
werden, kann das durch LLIST erreicht werden (vgl. Editor- 
Funktion Llist). Die Ausführung dieses Befehls kann durch die 
GFA-Break-Funktion (<Control/Shift/Alternate>) unterbrochen 
werden. Der Interpreter ist dann wieder arbeitsbereit, und es 
wird nur noch der Inhalt des Druckerpuffers ausgedruckt. 

Die im Programm befindlichen Punkt-Befehle (siehe Erklärung 
zur Editor-Funktion Llist) werden auch hier berücksichtigt. 


LP.QS0 


Druckkopfposition ermitteln 


Var=LPOS(Dummy) 

Mit dieser Funktion können Sie den aktuellen Standort des 
virtuellen Druckkopfes im Zeichenpuffer Ihres Druckers ermit¬ 
teln (max. 255). Da dieser nicht mit der aktuellen Position des 
physikalischen Schreibkopfes (der, der den Lärm macht) über¬ 
einstimmen muß, kann es unter Umständen wichtig sein, die 
gerade im Speicher aktuelle Position zu erfahren. Nach einem 
Carriage Return (LPRINT) beginnt die Zählung wieder bei Null. 
Es wird in Klammern ein beliebiger Wert übergeben, der für die 
Funktion ohne Bedeutung ist (dummy; engl, für: Attrap¬ 
pe/Schwindel). Beispiel: 

Lprint "VIRTUELLE DRUCKKOPF-POSITION" 

For 1=1 To 150 
Lprint Lpos(O) 1 
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Next I 
A=lpos(0) 
Print A 


LPRINT { LPR } Daten an Drucker ausgeben 


LPRINT [,*] "Text" [[;,’] Varl Expr...] 

Grundsätzlich arbeitet LPRINT genauso wie PRINT. Die Syntax 
ist bis auf die AT(Xpos,Ypos)-Variante mit PRINT vergleichbar. 
Ein Unterschied ist, daß LPRINT die gewünschten Zeichen, 
Strings und Werte nicht auf dem Bildschirm, sondern auf dem 
Drucker ausgibt. Zu einem leidigen Problem bei der Druckeran- 
steuerung wird häufig die Einstellung der verschiedenen Son¬ 
derfunktionen mit Hilfe sogenannter Steuerzeichen. Zwar halten 
sich mittlerweile die meisten Drucker an den sog. EPSON 
ESC/P-Standard, trotzdem kommt es aber immer wieder vor, 
daß der Drucker nicht das macht, was er eigentlich tun sollte. 
Etwa wenn es darum geht, auf einen bestimmten Zeichensatz 
umzuschalten oder einen anderen Zeilenabstand einzustellen. 

Im Vergleich zu anderen Rechnern hat man es hier etwas leich¬ 
ter beim Amiga: Der Amiga verfügt über eine Standard-Steuer- 
zeichen-Tabelle. Diese Standard-Steuerzeichen werden - sofern 
sie über das logische Gerät PRT: gesendet werden, was bei 
LPRINT der Fall ist - von der in den Preferences eingestellten 
Druckeranpassung in die Steuercodes des jeweils angewählten 
Druckers übersetzt. Der Vorteil liegt klar auf der Hand: Solange 
Sie sich beim Programmieren nur an die Standard-Steuercodes 
halten, ist es völlig egal, welcher Drucker jeweils an dem Amiga 
angeschlossen ist. Hauptsache, die richtige Druckeranpassung ist 
eingestellt. 

Eines sollten Sie aber immer beachten: Der angeschlossene 
Drucker muß auch in der Lage sein, die mit dem betreffenden. 
Steuerzeichen verbundene Aktion auszuführen. Bei einem 
Drucker, der zum Beispiel über keinen französischen Zeichensatz 
verfügt, nützt natürlich auch das entsprechende Standard-Steu- 
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erzeichen nur sehr wenig. Bitte informieren Sie sich also gegebe¬ 
nenfalls in Ihrem Druckerhandbuch, über welche Sonderfunk¬ 
tionen Ihr Drucker verfügt. 


Welche Standard-Druckersteuerzeichen gibt es nun? Schauen Sie 
dazu bitte in die folgende Tabelle. Sie enthält eine Übersicht al¬ 
ler verfügbaren Steuersequenzen: 


CHR$(27)+"c" 

CHR$(27)+"#1" 

CHR$(27)+"D" 

CHR$(27)+"E" 

CHR$(27)+”M" 

CHR$(27)+"[0m" 

CHR$(27)+"[lm" 

CHRJ(27)+"[22m" 

CHR$(27)+"[3m" 

CHR$(27)+"[23m" 

CHR$(27)+"[4m" 

CHR$(27)+"[24m" 

CHR$(27)+"["+xl+"m" 


CHR$(27)+"[0w" 

CHR$(27)+"[2w" 

CHR$(27)+"jlw" 

CHR$(27)+"[4w" 

CHR$(27)+"[3w" 

CHR$(27)+"[6w" 

CHR$(27)+"[5w" 

CHR$(27)+"[2"+CHR$(34)+"*" 

CHR$(27)+"[l"+CHR$(34)+"i" 

CHR$(27)+"[4"+CHR$(34)+"i" 

CHR$(27)+"[3"+CHR$(34)+"i“ 

CHR$(27)+"[6"+CHR$(34)+"*" 

CHR$(27)+"[5"+CHR1(34)+"i" 

CHR$(27)+"[2v" 

CHR$(27)+"[lv" 

CHR$(27)+"[4v" 

CHR$(27)+"[3v" 

CHR$(27)+"L" 


Drucker initialiiieren 
Abschaltung aller Sondermodi 
Zeilenvorschub 

Zeilenvorschub+W agenrücklauf 

eine Zeile surtlck 

normale Zeichendarstellung 

Fettdruck ein 

Fettdruck aus 

Kursiv ein 

Kursiv aus 

Unterstreichen ein 

Unterstreichen aus 

Vordergrundfarbe (xl swischen " 30" und 
"39"); Hintergrundfarbe (x$ swischen "40" 
und "49") 

normale Schriftgröße 
Elite-Schrift ein 
Elite-Schrift aus 
Schmalschrift ein 
Schmalschrift aus 
Breitschrift ein 
Breitschrift aus 
NLQ ein 
NLQ aus 
Doppeldruck ein 
Doppeldruck aus 
Schattenschrift ein 
Schattenschrift aus 
Superscript ein 
Superscript aus 
Subscript ein 
Subscript aus 
Hochstellen (Halbschritt) 
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CHR$(27)+"[2p" 

Proportionalschrift ein 

CHR$(27)+"[lp" 

Proportionalschrift aus 

CHR$(27)+"[0p" 

Proportionalabstand löschen 

CHR$(27)+"["+x$+"E” 

Proportionalabstand = xj 

CHR$(27)+"[5F" 

links ausrichten 

CHR$(27)+"[7F" 

rechts ausrichten 

CHR$(27)+"[6F" 

Blocksats 

CHR$(27)+"[0F" 

Blocksats aus 

CHR$(27)+"[8F" 

Buchstabenbreite justieren 

CHR$(27)+"[XF" 

sentrieren 

CHR$(27)+"[0z" 

Zeilenabstand 1/8 Zoll 

CHR$(27)+"[lz" 

Zeilenabstand 1/6 Zoll 

CHR$(27)+"["+x$+"t" 

Seitenl&nge auf x$ Zeilen einstellen 

CHRj(27)+"["+x$+"q" 

Perforation um x$ Zeilen überspringen 

CHR$(27)+"[Oq“ 

Perforation überspringen aus 

CHR$(27)+"(B" 

amerikanischer Zeichensatz 

CHR$(27)+"(R" 

französischer Zeichensatz 

CHR$(27)+"(K" 

deutscher Zeichensatz 

CHR$(27)+"(A" 

englischer Zeichensatz 

CHR$(27)+"(E" 

dänischer Zeichensatz (Nr. 1) 

CHR$(27)+"(H" 

schwedischer Zeichensatz 

CHR$(27)+"(Y" 

italienischer Zeichensatz 

CHR$(27)+"(Z" 

spanischer Zeichensatz 

CHR$(27)+"(J" 

japanischer Zeichensatz 

CHR$(27)+"(6" 

norwegischer Zeichensatz 

CHR$(27)+"(C" 

dänischer Zeichensatz (Nr. 2) 

CHR$(27)+"#9" 

linken Rand setzen 

CHR$(27)+"#0" 

rechten Rand setzen 

CHR$(27)+"#8" 

oberen Rand setzen 

CHR$(27)+"#2" 

unteren Rand setzen 

CHR$(27)+"#3” 

Ränder löschen 

CHR$(27)+"["+x$+";"+y$+"r" 

Seitenkopf x$ Zeilen von oben und Seitenfuß 
y$ Zeilen von unten 

CHR$(27)+"["+x1+";"+y $)+"»" 

linken Rand (x$) und rechten Rand (y)) 


setzen 

CHRJ(27)+"H" 

horizontalen Tabulator setzen 

CHR$(27)+"J" 

vertikalen Tabulator setzen 

CHR$(27)+"[0g" 

horizontalen Tabulator löschen 

CHR$(27)+"[3g" 

alle horizontalen Tabulatoren löschen 

CHR$(27)+"[lg" 

vertikalen Tabulator löschen 

CHR$(27)+"[4g" 

alle vertikalen Tabulatoren löschen 

CHR$(27)+"#4" 

alle Tabulatoren löschen 

CHR*(27)+"#5" 

Standard-Tabulatoren setzen 



134 


Das große GFA-BASIC-Buch 


Sind bei den Steuersequenzen Werte anzugeben, so sind diese als 
Zeichenfolge anzugeben (z.B.:x$="123") und nicht etwa als 
Zeichen mit dem entsprechendem ASCII-Code! 

Nun ist es natürlich auch nicht jedermanns Sache, sich eine 
Steuersequenz wie zum Beispiel ’CHR$(27)"[lm"’ zum Umschal¬ 
ten auf Fettschrift auswendig zu merken. Und jedesmal in der 
Tabelle nachschauen, das ist vielleicht auch etwas mühsam. Da 
sollte einmal Nachschauen schon genügen. Aber wozu gibt es 
schließlich die Möglichkeit, selbstdefinierte Funktionen zu pro¬ 
grammieren?: 

DEFFN fett_ein$ = CHRS(27)+" [W 

Wenn Sie jetzt auf Fettschrift umschalten wollen, genügt ein 
LPRINT <©fett_ein$. Das läßt sich doch schon viel leichter 
merken! Deshalb mein Vorschlag: Suchen Sie sich aus der 
Tabelle all die Steuersequenzen heraus, die Sie höchstwahr¬ 
scheinlich einmal brauchen werden und definieren Sie sie - mit 
einprägsamen Namen - als Funktionen. Anschließend speichern 
Sie das Ganze als separates Programm (vielleicht unter dem 
Namen ’DRUCKERCODES.LST’) auf Diskette. Wenn Sie nun in 
Ihren Programmen auf den Drucker zugreifen wollen, verwen¬ 
den Sie einfach die gewählten Namen und mergen dann zum 
Schluß ’DRUCKERCODES.LST’ hinten an Ihr Programm. 

Die Standard-Steuerzeichen-Tabelle ist zwar eine feine Sache, 
doch was macht man, wenn der eigene Drucker über Fähigkeiten 
verfügt, deren Einstellung in der Tabelle überhaupt nicht vor¬ 
gesehen ist? Man denke nur an Schriftvarianten wie 'Outline’, 
die mittlerweile bei einigen Druckern zum Standard gehören. In 
der Steuerzeichen-Tabelle werden Sie diese dagegen vergeblich 
suchen. 

Für solche Fälle verfügt der Amiga über eine zweite Drucker- 
Schnittstelle: das logische Gerät PAR:. Dieses macht im Grunde 
genommen nichts anderes als PRT:: Es steuert die parallele 
Schnittstelle (auch Centronics-Schnittstelle genannt) des Amiga 
an. Im Gegensatz zu PRT: findet bei PAR: jedoch keine Steuer¬ 
zeichenübersetzung statt, d.h. die Steuerzeichen werden ’unge- 
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filtert’ (unter Umgehung der in den Preferences eingestellten 
Druckeranpassung) direkt an den angeschlossenen Drucker ge¬ 
sendet. Wie sieht das Ganze nun konkret aus? Zunächst müssen 
Sie mit 

OPEN "0",#1,"PAR: M 

eine logische Datei zu PAR: öffnen. Anschließend senden Sie die 
erforderliche Steuersequenz mit 

PRINT #1,CHR$(27). 

an den Drucker. Die weiteren Daten (also den auszudruckenden 
Text) können Sie nun mit 

PRINT #1,. 

ausgeben lassen. Dabei gelten dieselben Syntaxregeln wie bei 
LPRINT. Zum Schluß vergessen Sie bitte nicht, die Datei mit 

CLOSE #1 

wieder zu schließen. Sollte Ihr Drucker zu jenen Exoten 
gehören, die an der seriellen Schnittstelle des Amiga angeschlos¬ 
sen werden wollen, so hilft Ihnen die dritte Drucker-Schnitt¬ 
stelle des Amiga: das logische Gerät SER:. Die Vorgehensweise 
ist dabei genau dieselbe wie bei PAR:. Also zuerst mit ’OPEN 
"0",#1,"SER:" eine logische Datei öffnen, dann mit ’PRINT #1’ 
die Steuerzeichen und sonstigen Daten senden und zum Schluß 
die Datei mit ’CLOSE #1’ wieder schließen. 
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5.9 Sound- und Spracherzeugung 


Ton erzeugen 


SOUND { SO } 


SOUND Frequenz, Dauer [.Lautstärke] [.Kanal] 

Der Befehl SOUND erzeugt einen Ton, dessen Frequenz 
zwischen 20 Hertz und 15000 Hertz frei wählbar ist. Der Para¬ 
meter Dauer ist eine 16-Bit-Zahl, die angibt, wie oft die sog. 
Hüllkurve des Tones (siehe WAVE) wiederholt wird. 

Die optional einstellbare Lautstärke kann Werte von 0 (= aus) bis 
255 (= volle Lautstärke) annehmen. Die Einteilung ist linear, d.h. 
ein Wert von 127 ergibt eine mittlere Lautstärke. Dieser Wert ist 
auch voreingestellt. 

Mit Kanal läßt sich festlegen, über welchen der vier Tonkanäle 
des Amiga (Kanal = 0-3) der Ton ausgegeben werden soll. 
Voreingestellt ist der Kanal 0. Jeder Tonkanal läßt sich einzeln 
ansprechen, d.h. Sie können bis zu vier Töne gleichzeitig spielen. 

Bei Stereoausgabe stehen die Kanäle 0 und 3 für den linken, die 
Kanäle 1 und 2 für den rechten Tonausgang. 

Neben dem Erzeugen einfacher Töne ist natürlich vor allem 
eines interessant: das Abspielen von Noten oder ganzen Musik¬ 
stücken. Dazu muß man die den einzelnen Noten zugeordneten 
Tonfrequenzen kennen: 


Note Frequenz (Hz) 


c 

261.6 

C# 

277.2 

d 

293.7 

d# 

311.2 

e 

329.7 

f 

349.3 

f# 

370.0 

8 
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Not« Frequenz (Hz) 


g# 

415.3 

a 

440.0 

a# 

466.2 

h 

493.9 


Die Tabelle gibt Ihnen Aufschluß über die Frequenzen der 2. 
Oktave. Die Frequenzen anderer Oktaven lassen sich daraus 
denkbar einfach berechnen: Mit jeder Oktave verdoppelt sich die 
Frequenz einer Note! Die Note a in der 3. Oktave hat also die 
Frequenz 2*440=880 Hertz, in der 4. Oktave entspricht ihr die 
Frequenz 2*880=1760 Hertz usw. Für alle, denen das Ausrechnen 
zu mühsam ist, habe ich die folgende Tabelle zusammengestellt. 
Sie enthält die gebräuchlichsten Noten und ihre zugehörigen 
Frequenzen (in Hz): 


Oktave: 1 2 3 4 5 


c 

130.8 

C# 

138.6 

d 

146.9 

d# 

155.6 

e 

164.9 

f 

174.7 

f# 

185.0 

g 

'196.0 

g# 

207.7 

a 

220.0 

a# 

233.1 

h 

247.0 


261.6 

523.2 

277.2 

564.4 

293.7 

587.4 

311.2 

622.4 

329.7 

659.4 

349.3 

698.6 

370.0 

740.0 

392.0 

784.0 

415.3 

830.6 

440.0 

880.0 

466.2 

932.4 

493.9 

987.8 


1046.4 

2092.8 

1108.8 

2217.6 

1174.8 

2349.6 

1244.8 

2489.6 

1318.8 

2637.6 

1397.2 

2794.4 

1480.0 

2960.0 

1568.0 

3136.0 

1661.2 

3322.4 

1760.0 

3520.0 

1864.8 

3729.6 

1975.6 

3951.2 


WAVE {WA} 


Hüllkurve festlegen 


WAVE Kanal, HüllkurveO 

Mit WAVE läßt sich für jeden der vier Tonkanäle des Amiga 
(Kanal = 0 bis 3) eine sog. Hüllkurve festlegen. Diese bestimmt 
den Klangverlauf des über diesen Kanal ausgegebenen Tones. 
Die Daten der Hüllkurve werden in dem 256 Elemente umfas¬ 
senden Integerfeld HüllkurveO übergeben. Jedes Element des 
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Feldes darf nur Werte zwischen -128 und +127 annehmen. Daher 
verwendet man am besten ein Byte-Integerfeld (Prefix |). 

Wird der Befehl SOUND ohne vorheriges WAVE angewendet, so 
wird für den angesprochenen Kanal eine Sinusschwingung er¬ 
zeugt. Diese können Sie auch mit WAVE über das Schlüsselwort 
SIN() einstellen (WAVE Kanal,SIN()). 


SAY 


Text sprechen 


SAY SprechS [,Modi%0] 

Der Befehl SAY dient dazu, einen zuvor mit der Funktion 
TRANSLATES in einen sog. Phonem-Code übersetzten Text zu 
sprechen. Der Phonem-Code wird dazu in SprechS übergeben. 
SAY und TRANSLATE$() lassen sich auch kombinieren: SAY 
TRANSLATESO'HALLO"). 

Durch das sieben Elemente umfassende Feld Modi%() können 
Sie die 'Stimme’ des Amiga auf verschiedene Art und Weise 
modifizieren: 


Modi%(0) Enthält die Frequenz und damit die Höhe der 
Stimme. Möglich sind Werte von 65 (tiefe Stimme) 
bis 320 (hohe Stimme). Voreingestellt ist 110. 

Modi%(l) Legt die Modulation der Stimme fest. Zur Wahl 
stehen 'betont’ (0) und 'monoton’ (1). Voreinstel¬ 
lung: 0. 

Modi%(2) Enthält die Sprechgeschwindigkeit in Wörtern pro 
Minute (40 - 400). Voreingestellt ist 150. 


Modi%(3) Legt fest, ob die Stimme männlich (0) oder weib¬ 
lich (1) klingen soll. Voreingestellt ist 0. 
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Modi%(4) Enthält die Sampling-Frequenz, die vor allem 
Auswirkungen auf die Stimmhöhe hat. Möglich 
sind Werte zwischen 5000 (tief) und 28000 (hoch). 
Voreinstellung: 22000 

Modi%(5) Legt die Lautstärke der Stimme fest. Erlaubt sind 
Werte von 0 (nichts zu hören) bis 64 (volle Laut¬ 
stärke). Voreingestellt ist 64. 

Modi%(6) Bestimmt, über welchen der vier Tonkanäle des 
Amiga (Nummern 0 bis 3) die Stimme zu hören 
ist. Dabei sind alle Kombinationen möglich: 


0 Kanal 0 

1 Kanal 1 

2 Kanal 2 

3 Kanal 3 

4 Kanäle 0 und 1 

5 Kanäle 0 und 2 

6 Kanäle 3 und 1 

7 Kanäle 3 und 2 

8 Kanäle 0 und/oder 3 

9 Kanäle 1 und/oder 2 

10 Jedes freie Kanalpaar (Grundeinstellung) 

11 Jeder freie Kanal 


Die Vielzahl der Parameter ist auf den ersten Blick vielleicht 
etwas verwirrend. Um die Werte jeweils bequem ändern zu kön¬ 
nen, ist es am einfachsten, wenn man sich alle Werte für 
Modi%() in einer DATA-Zeile ablegt und dann dort die erfor¬ 
derlichen Änderungen vornimmt: 

FOR zX=0 TO 9 

READ ModiX(zX) ILeseschleife 
NEXT zX 

{Abgelegte Werte 

DATA 110,0,150,0,22000,64,10 

Um die Stimme zum Beispiel von männlich auf weiblich umzu¬ 
stellen, ändern Sie den vierten Wert auf 1. 

Achtung: SAY benötigt für seine Arbeit im DEVS-Ordner der 

Boot-Diskette das sog. 'Narrator-Device’. Beim 
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Aufruf von SAY sollte sich die Boot-Diskette also in 
einem der angeschlossenen Laufwerke befinden. 
Andernfalls erhalten Sie einen System-Requester, der 
Sie zum Einlegen der Diskette auffordert. 


TRANSLATE$Ö Text zur Sprachausgabe übersetzen 


Sprech$=TRANSLATE$("Text") 

TRANSLATES übersetzt einen natürlichsprachlichen Text in 
einen für den SAY-Befehl verständlichen Phonem-Code. Das 
Ganze hat allerdings einen Haken: TRANSLATES ist im Mo¬ 
ment nur in der Lage, englischen Klartext zu bearbeiten, d.h. 
jeder Text wird nach englischen Ausspracheregeln umgeformt! 
Deutsche Texte werden dadurch mitunter fast unverständlich. 

Eine mögliche Abhilfe besteht darin, den Text so umzu¬ 
schreiben, daß er - englisch ausgesprochen - deutsch klingt. 
Zwei Beispiele: Aus einem ’Wie’ wird ein ’Vee’, ein ’sch’ wird zu 
’sh’. Leider lassen sich dabei aber keine allgemeingültigen Um¬ 
formungsregeln aufstellen. Im Einzelfall hilft nur Ausprobieren. 
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6. Programmstruktur 

6.1 Schleifenkonstruktionen 


DO... LOOP { DO ... L} 


Endlosschleife DO [WHILE Bed] [UNTIL Bed] ...Doppelt bedingte 
Schleife LOOP [WHILE Bed] [UNTIL Bed] 

DO 

... auszuführende Programmteile 

LOOP 

oder: 

DO [WHILE Bedingung] [UNTIL Bedingung] 

... auszuführende Programmteile, wenn DO-Bedingung 
... wahr ist bzw. solange LOOP-Bedingung wahr ist. 

LOOP [WHILE Bedingung] [UNTIL Bedingung] 

Eine DO...LOOP-Schleife bricht im Normalfall nur dann ab, 
wenn sie auf eine Abbruch-Anweisung (END, ED1T, STOP) 
trifft, eine EXIT IF-Anweisung findet und die Abbruchbedin¬ 
gung wahr ist, eine GOTO-Anweisung innerhalb der Schleife zu 
einem Label außerhalb der Schleife verzweigt oder die Break- 
Funktion verwendet wird. 

Außerdem ist es möglich, eine DO...LOOP-Konstruktion mit 
Ein- und Ausgangsbedingungen zu versehen. Dazu kann sowohl 
bei DO als auch bei LOOP entweder eine WHILE- oder eine 
UNTIL-Bedingungsabfrage hinzugefügt werden (siehe 
WHILE...WEND bzw. REPEAT...UNTIL). Wenn allein 
DO...LOOP eingesetzt wird, ist es möglich, statt LOOP auch 
ENDDO zu verwenden (wird vom Interpreter dann durch LOOP 
ersetzt). 
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DO...LOOP kann - wie alle anderen Schleifen auch - beliebig 
tief verschachtelt werden. 

Beachten Sie bitte das Beispiel zu EXIT IF. 


FOR ... NEXT { F... N } Zählschleife 


FOR Zaehl = Start TO [DOWNTO] Ende [STEP Schritt] 

... auszuführende Programmteile 
NEXTZaehl 

Mit der Konstruktion FOR...NEXT wird eine indizierte Wieder¬ 
holungschleife angelegt. 

Die Kopfzeile der Schleife enthält den Anfangswert Start und 
den Endwert Ende. Die numerische Zählvariable Zaehl wird bei 
Schleifenbeginn mit dem Wert Start belegt und dann bei jedem 
Durchlauf solange erhöht bzw. vermindert, bis sie den Wert 
Ende erreicht hat. Dabei werden alle Programmzeilen, die 
zwischen FOR und dem dazugehörigen NEXT eingeschlossen 
sind, bei jedem Durchlauf ausgeführt. Nach Erreichen des 
Ende-Wertes wird das Programm mit der auf die NEXT-An- 
weisung folgenden Programmzeile fortgesetzt. 

Wird nur FOR..TO..NEXT ohne die Option STEP verwendet, 
beträgt die Schrittweite immer +1. Bei Verwendung von 
FOR..DOWNTO..NEXT ist der Anfangswert größer als der 
Endwert anzugeben, da in diesem Fall die Schrittweite immer -1 
beträgt. Die Verwendung von STEP ist hier nicht zulässig. Die 
Option STEP (nur bei TO-Schleifen) bewirkt, daß der nach 
STEP angegebene Wert oder Ausdruck als Schrittweite ange¬ 
nommen wird. Hier sind auch negative Werte möglich, wobei 
dann sinnvollerweise - wie bei DOWNTO - der Endwert kleiner 
als der Startwert zu wählen ist. 
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Ist bei Verwendung von STEP der Wertebereich von Start bis 
Ende nicht glatt durch den STEP-Wert Schritt teilbar, errechnet 
sich der zuletzt verarbeitete Zählwert aus: 

Abs(Ende-Start)-((Abs(Ende-Start)) Mod Abs(Schritt)) 

Ist bei positiven Schleifen Start größer als Ende bzw. bei nega¬ 
tiven Schleifen Ende größer als Start, so wird die Schleife trotz¬ 
dem mindestens einmal mit dem Start-Wert durchlaufen. 

Statt NEXT Var kann auch ENDFOR Var angegeben werden. 


REPEAT ... UNT1L { REP ... U } Bedingte Schleife 


REPEAT 

... auszuführende Programmteile 
UNTIL Bedingung 

Die REPEAT...UNTIL-Schleife kann immer dann angewendet 
werden, wenn die Anzahl der Schleifendurchläufe nicht durch 
das Erreichen eines Endwertes (FOR...NEXT) festgelegt ist und 
die Schleife mindestens einmal durchlaufen werden soll. 

Die Bedingung zum Verlassen der Schleife wird hier am 
Schleifenende geprüft. D.h., daß die Schleife mindestens einmal 
bis zu der in UNTIL vereinbarten Bedingung durchlaufen wird. 
Es sei denn, daß innerhalb der Schleife eine EXIT IF-Bedingung 
mit "wahr" beantwortet wird (siehe EXIT IF). Ist "Bedingung" 
wahr, wird das Programm mit der nächsten auf UNTIL folgen¬ 
den Zeile fortgesetzt. 

Diese Konstruktion läßt sich bestens dazu verwenden, um 
mehrfach kombinierte Abbruchbedingungen zu stellen. So kön¬ 
nen z.B. gleichzeitig ein bestimmter Tastatur-, Maus- und/oder 
Mausknopf-Status, der Inhalt von Variablen und/oder das Er¬ 
reichen bestimmter Limits als Bedingung(en) angegeben werden. 
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Angenommen, für den Abbruch einer REPEAT...UNTIL- 
Schleife sollen die folgenden Bedingungen ausschlaggebend sein: 

Mausklick rechts und Zählwert größer 100 


oder 


<Esc>-Taste gedrückt 

oder es sind mehr als 10 Sekunden vergangen. Die Schleifen¬ 
konstruktion sieht dann so aus: 

TX=Timer ! Timer festhalten 

Repeat ! Schleifenstart 

Inc AX I Zähler +1 

K=Mousek ! Maustasten-Abfrage 

KeyX=Asc(Right$(Inkey$)) ! Tastatur-Abfrage 

Until (K=2 And AX>100) Or KeyX=27 Or (Timer-TX)>2000 

Mit den Booleschen Operatoren AND/OR/NOT/XOR/1MP/EQV 
lassen sich diese Bedingungen auf das Abenteuerlichste mit¬ 
einander verknüpfen. Statt UNTIL kann auch ENDREPEAT 
verwendet werden. Der Interpreter wandelt diesen Ausdruck 
dann selbständig in UNTIL um. 


WHILE ... WEND { W ... WE } Bedingte Schleife 


WHILE Bedingung 

... auszuführende Programmteile... 

WEND 

Die WHILE...WEND-Schleife hat die Eigenschaft, daß die Ab¬ 
frage der Lauf-Bedingung bereits am Anfang der Schleife statt¬ 
findet. 

So kann es sein, daß die Schleife zwar in der ersten Zeile betre¬ 
ten wird, jedoch das Programm sofort hinter dem dazugehörigen 
WEND fortgesetzt wird. Dann nämlich, wenn die Bedingung 
bereits bei Betreten der Schleife nicht erfüllt ist. In diesem Fall 
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werden die zwischen WHILE und WEND eingeschlossenen Pro¬ 
grammzeilen also nicht ausgeführt. Beachten Sie hierzu bitte das 
Beipiel zu EOF(). 

Statt WEND kann auch ENDWHILE verwendet werden. Der In¬ 
terpreter wandelt diesen Ausdruck dann selbständig in WEND 
um. 


6.2 Bedingte Verzweigungen 


EXIT IF { EX } Bedingter Schleifenabbruch 


EXIT IF Bedingung 

Das ist ein sehr nützlicher Befehl, wenn es darum geht, inner¬ 
halb von FOR...NEXT-, DO...LOOP-, REPEAT...UNTIL- oder 
WHILE...WEND-Schleifen an beliebigen - und beliebig vielen - 
Stellen zusätzliche Abbruchbedingungen stellen zu können. 

Eine solche Schleife kann unabhängig von ihrem Zustand je¬ 
derzeit verlassen werden, sobald darin eine durch EXIT IF ge¬ 
stellte Bedingung mit "wahr" beantwortet wird. Das Programm 
wird dann mit der auf den zugehörigen Schleifenwendepunkt 
folgenden Programmzeile fortgesetzt. Dabei ist zu beachten, daß 
das Programm direkt vom auslösenden EXIT IF hinter den Wen¬ 
depunkt springt. Zwischen dem auslösenden EXIT IF und dem 
Wendepunkt stehende Programmzeilen werden also nicht noch 
einmal ausgeführt. 

Das Beispiel zu REPEAT...UNTIL läßt sich nun anhand einer 
DO...LOOP-Schleife und EXIT IF folgendermaßen umstruktu¬ 
rieren: 

TX=Timer ! Timer festhalten 

Do ! Schleifenstart 

Exit If (Timer-TX)>2000 ! 10 Sekunden vergangen? 

Inc AX ! Zähler +1 

K=Mousek ! Haustasten-Abfrage 
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Key%=Asc(RightS(InkeyS)) ! Tastatur-Abfrage 

Exit If KeyX=27 ! <Esc>-Taste gedrückt? 

Exit If K=2 And AX>100 ! Hausklick rechts und 

1 ! Zähler größer 100? 

Loop 

Die - oben schon erwähnte - Besonderheit ist hier, daß die 
Schleife direkt verlassen wird, sobald 10 Sekunden vergangen 
sind und bis dahin keine der beiden anderen Abbruchbedin¬ 
gungen erfüllt wurde. In diesem Fall heißt das, daß der vor dem 
auslösenden Timer-Abbruch gültige Maustasten- und Tastatur¬ 
status sowie der Zähler A% erhalten bleiben und ggf. weiterver¬ 
wertet werden können. 

EXIT IF kann auch innerhalb von IF...ENDIF- oder 
SELECT...ENDESELECT-Blöcken eingesetzt werden. Das Pro¬ 
gramm wird dann ggf. hinter der Schleife fortgesetzt, in der 
diese Befehle stehen. 


IF [ELSE] ENDIF { 1... [E...] EN > 

Bedingungsabfrage 


ELSE IF { E } 

Urtter-Beding ungsa bfrage 


IF Bedingung [THEN] 

... auszuführende Programmteile, 
wenn Bedingung wahr ist 
[ELSE 

... auszuführende Programmteile, 
wenn Bedingung unwahr ist ] 
ENDIF 
oder: 

IF Bedingungl [THEN] 

... auszuführende Programmteile, 
wenn Bedingungl wahr ist 
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[ELSE IF Bedingung2 

... auszuführende Programmteile, wenn Bedingung 1 
unwahr und Bedingung2 wahr ist.] 

[ELSE IF Bedingung3 

... auszuführende Programmteile, wenn alle 
vorherigen Bedingungen unwahr waren, 
jedoch Bedingung3 wahr ist.] 

... ggf. weitere ELSE IF-Abfragen 
[ELSE 

... auszuführende Programmteile, wenn alle 
vorherigen Bedingungen unwahr waren.] 

ENDIF 

In GFA-BASIC ist es möglich, die Ausführung auch umfang¬ 
reicher Programmteile allein von der Erfüllung einer einzigen 
Bedingung abhängig zu machen. Die Folge an Befehlen, die ab¬ 
hängig von einer IF-Bedingung ausgeführt werden sollen, wird 
hier nur von dem zugehörigen ENDIF (bzw. ELSE) eingegrenzt. 

Ist die Bedingung wahr, werden die zwischen IF und dem zuge¬ 
hörigen ENDIF bzw. ELSE stehenden Programmteile ausgeführt. 
Bei Verwendung der Option ELSE werden die zwischen ELSE 
und dem zugehörigen ENDIF eingeschlossenen Befehle ausge¬ 
führt, wenn die Bedingung sich als unwahr erweist. Ist ein IF- 
oder ELSE-Block ausgeführt, wird das Programm mit der auf 
das zugehörige ENDIF folgenden Programmzeile fortgesetzt. 

IF-Abfragen können beliebig tief verschachtelt werden. Der op¬ 
tionale Zusatz THEN hinter IF ist zur Kompatibilität mit ande¬ 
ren BASIC-Dialekten gedacht. Er kann in GFA-BASIC ver¬ 
nachlässigt werden. 

Durch den Zusatzbefehl ELSE IF ist es möglich, sich Ver¬ 
schachtelungen folgender Art zu ersparen: 

If Bedingungl 

... Programmblock 1 >-. 

Else 

If Bedingung? 

... Programmblock 2 >-. 

Else 
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If Bedingung3 

... Programmblock 3 

Else 

... Programmblock 4 
Endif 

.<- 

Endi f 


Endif 
.<- 



Mit ELSE IF sieht dieselbe Struktur so aus: 


If Bedingungl 

... Programmblock 1 >-. 

Else If Bedirtgung2 

... Prograirmblock 2 >-. 

Else If Bedingung3 

... Programmblock 3 >-. 

Else 

... Programmblock 4 >--. 

Endif | 

.<-i-i-i-i 


Ist hier die Eingangs-IF-Bedingung unwahr und trifft das Pro¬ 
gramm auf eine ELSE IF-Abfrage, deren Bedingung wahr ist, 
wird nur der darunter angegebene Programmblock abgearbeitet 
und nach dessen Ausführung zu der auf das zugehörige ENDIF 
folgenden Programmzeile gesprungen. Wird als Abschluß die 
Option ELSE verwendet und keine der vorangegangenen ELSE 
IF-Bedingungen wurde mit wahr beantwortet, wird auch hier 
die unter ELSE angegebene Programmfolge alternativ zu allen 
Vorbedingungen ausgeführt. 

Bei folgender Abfrage werden mehrere Bedingungen durch AND 
so miteinander verknüpft, daß der dahinterstehende Programm¬ 
block nur dann ausgeführt wird, wenn alle Bedingungen der 
Abfrage erfüllt sind. Statt des oben verwendeten Ausdrucks Be¬ 
dingung setze ich hier den Ausdruck Case ein, der jedoch nichts 
mit der CASE-Abfrage zu tun hat. 

If Case1=True And Case2=True And Case3=False 
auszuführender Programmblock 
Endi f 
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Eine solche Struktur ließe sich mit derselben Wirkung auch in 
mehrere IF-Abfragen auflösen: 

.- If Case1=True 

.- If Case2=True <- 1 

I_^ 

.- If Case3=False <- 1 

auszuführender Progrannt)lock >-. 

Endi f 

i->.<-■ 

I 

Endif 

'->. 

i 

Endi f 
'-> 


Auch hier wird der Block nur ausgeführt, wenn alle Abfragen 
wahr sind. Auf den ersten Blick mag die zweite Version etwas 
aufwendiger erscheinen. Sie hat jedoch den Vorteil, daß nach 
jeder Einzel-Abfrage auf die Erfüllung der einzelnen Bedingung 
reagiert werden kann. 

Fileselect "auswahl","laden","dfO:",F$ 

If F$>"" I Casel 

Print "Okay-Box oder Doppelklick" ! Reaktion 

If Right$(F$,4)=“.DAT" ! Case2 

Print "Korrekte Extension ! Reaktion 

If Len(FS)>4 ! Case3 

Print "Dateiname ";LeftS(F$,Len(F$)-4) ! Block.. 

Print "Extension = .DAT" ! ...ausführen 

Endi f 
Endi f 
Endif 

Ähnliches läßt sich auch mit mehreren ELSE IFs anstatt einer 
OR-Kette realisieren. Bei der OR-Kette wird die Abfrage pas¬ 
siert und der Programmblock ausgeführt, sobald nur eine Bedin¬ 
gung der Kette wahr ist. Hier wurden - um einen Vergleich mit 
der oben beschriebenen AND-Kette zu ermöglichen - die Be¬ 
dingungen negiert. 

If CaseloTrue Or Case2<>True Or Case3<>False 
Reaktion auf Negation der Bedingungen 
Else 
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auszuführender Programmblock 
Endi f 

Mit der ELSE IF-Struktur kann jede der drei OR-Bedingungen 
einzeln abgefragt werden und dann auf die Erfüllung der jewei¬ 
ligen Bedingung separat reagiert werden: 


.-< If CaseloTrue 

Reaktion auf Casel >-. 

.<===> Else If Case2<>True 

Reaktion auf Case2 >-. 

.<===> Else If Case3<>False 

Reaktion auf Case3 >-. 

Else 

1 -> .. auszuführender Programmblock >--. 

Endi f 

<-i-i-i-i 


In der Praxis könnte das dann so aussehen: 

Fileselect "ausuahl","laden","df0:", F$ 

If FS="" I Casel 

Print "Abbruch-Box angeklickt" I Reaktion 

Else If Right$(F$,4)<>".DAT" I Case2 

Print "Falsche Extension (kein .DAT) I Reaktion 

Else If Len(FS)=4 ! Case3 

Print "Kein vollständiger Dateiname " ! Reaktion 

Else ! Keine der Bedingungen ist 

wahr! 

Print "Korrekte Dateiauswahl!" ! Block... 

Endif !...ausführen 

Der wesentliche Unterschied zwischen der Normal-IF-Struktur 
und der ELSE IF-Struktur ist, daß beim Normal-IF nach jedem 
Programmblock die ENDIFs der vorangegangenen Abfragen 
noch passiert werden. Daraus ergibt sich die Möglichkeit, abhän¬ 
gig von dem ausgeführten Block weitere Programmteile ausfüh¬ 
ren zu lassen, die mit den vorangegangenen Abfragen in Bezug 
stehen. Die Notwendigkeit zu Raffinessen dieser Art ist zwar 
äußerst gering, kann jedoch nicht absolut ausgeschlossen werden. 
Beispiel: 
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AX=3 
If AX=1 

Print 1* >- 

Else 
If AX=2 

Print 2' >-. 

Else 
If AX=3 

Print 3' >-. 

Else 

Print 4' >-. 

Endi f 

.<-' -' 

Print 5' 

Endi f 

.<- 1 

Print 6' 

Endi f 

. < - 


Obwohl hier weder die 
erste noch die zweite 
Bedingung zutrifft, werden 
die vor ihren ENOIF's 
stehenden Zeilen Print 5 
und Print 6 ausgeführt. 

Wäre AX = 2, würde die 
Zeile Print 5 nicht mehr 
ausgeführt werden. Bei AX = 0 
würden außer der letzten 
ELSE-Anweisung Print 4 
ebenfalls noch Print 5 und 
Print 6 ausgeführt werden. 


Diese Möglichkeit ist bei der ELSE IF-Struktur nicht gegeben, 
da dort einfach kein Platz für die Zeilen Print 5 und Print 6 
wäre. 

Gemeinsam ist beiden Strukturen, daß immer dann, wenn eine 
Bedingung zutrifft, die nachfolgenden Abfragen übersprungen, 
also ausgeschlossen werden. 

Bei IF-Verschachtelungen 

If Bedingungl 

>- . 

.<-‘ 

If Bedingung2 

... > -. 

.<- 1 

Endi f 
Endif 

oder IF-Verkettungen: 

If Bedingungl 

... > -. 

Endi f 

.<- 1 

If Bedingung2 


Endi f 
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ist dieser Ausschluß nicht gewährleistet, da mit einem Fall auch 
mehrere Bedingungen gleichzeitig erfüllt sein können. 

Sie werden sich evtl, fragen, wie denn überhaupt die Entschei¬ 
dung wahr oder unwahr getroffen wird. Bei einfachen Abfragen, 
wie z.B. If A%=1, ist das leicht zu erklären. Hat die Variable 
A% den Wert 1, wird die Bedingung mit wahr (TRUE = -1) 
beantwortet, andernfalls mit unwahr (FALSE = 0). Geben Sie 
bitte im Direktmodus ein: 

Print 1=1 


Der Interpreter vergleicht nach dem Booleschen Verfahren 
"logisch" die beiden gegenübergestellten Werte 1 und 1. An¬ 
schließend liefert er Ihnen den Wahrheitswert -1 (TRUE). Wie 
das Ganze maschinenintern durch sogenannte Gatter geregelt 
wird, soll uns hier nicht interessieren. Wichtig ist, daß Sie wis¬ 
sen, daß es so ist. Schauen Sie sich bitte dazu die Bedeutung der 
einzelnen Operatoren in Kapitel 8.1 sowie die Vorrang-Regelung 
der Operatoren untereinander an. 


Bei komplizierteren Verknüpfungen gibt es schon einige Pro¬ 
bleme. Hier ist es wichtig, auf eine exakte und logisch richtige 
Klammersetzung zu achten. So können sich aus (oberflächlich 
gesehen) immer demselben Ausdruck mehrere Resultate ergeben: 


Print (2‘2=4) + ((7-l)>3) 
Print 2‘2=4+((7-l)>3) 
Print (2‘2=4)+(7-l)>3 
Print (2*2=4)+7-(l>3) 


-> Ausgabe: -2 
-> Ausgabe: 0 
-> Ausgabe: -1 
-> Ausgabe: 6 


Verblüffend, oder? - Die Klammersetzung macht es möglich! 
Nun die Erklärung: In der ersten Zeile wird der Ausdruck 
(2 A 2=4) zusammengefaßt. Dasselbe geschieht mit ((7-1 )>3). Beide 
Ausdrücke werden - jeder für sich - auf ihren Wahrheitsgehalt 
geprüft. Der erste Ausdruck ergibt TRUE (-1), da die zweite 
Potenz von 2 tatsächlich 4 ist. Der zweite Ausdruck liefert 
ebenfalls TRUE (-1), da 7 minus 1 (also 6) tatsächlich größer als 
3 ist. Durch das Plus-Zeichen werden nun beide Wahrheitswerte 
addiert. Und das ergibt (-!)+(-!)= -2. 
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In der zweiten Zeile habe ich einfach die Klammer um den 
ersten Ausdruck weggelassen. Daraus ergibt sich eine völlig 
andere Konstellation. In diesem Fall wird zuerst das Ergebnis 
von 2 A 2 berechnet (4). Das Gleichheitszeichen wird hier aller¬ 
dings nicht als zum ersten Ausdruck zugehörig erkannt, sondern 
stellt den Verknüpfungs-Operator zum zweiten Ausdruck dar. 
Dieser liefert - wie in der ersten Zeile - wieder TRUE (-1). In 
der endgültigen Auswertung ergibt sich also 4=(-l). Da 4 nun 
aber nicht -1 ist, liefert die Zeile den Unwahrheitswert FALSE, 
also 0. 

In der dritten Zeile haben wir als ersten Ausdruck wieder 
(2 A 2=4). Hier ist die Änderung beim zweiten Ausdruck zu fin¬ 
den. Es fehlt die äußere Klammer. 2 hoch 2 ist 4 - stimmt! Also 
erhalten wir aus dem ersten Ausdruck wieder TRUE (-1). Der 
zweite Ausdruck ist in diesem Fall jedoch auf (7-1) reduziert. 
Das ergibt 6. Als nächstes werden die beiden Ausdrücke addiert. 
6+{-l) ist 5. Dieses Additionsergebnis wird nun abschließend 
daraufhin geprüft, ob es größer als 3 ist. Da 5 tatsächlich größer 
als 3 ist, erhalten wir als Gesamtergebnis dieser Zeile ein TRUE 
(- 1 ). 


Die vierte und letzte Zeile hat immer noch - oberflächlich ge¬ 
sehen - eine frappierende Ähnlichkeit mit ihren Vorgängerin¬ 
nen. Hier habe ich einfach die 7 aus dem zweiten Ausdruck aus¬ 
geklammert und (1>3) zusammengefaßt. Der erste Ausdruck ist 
uns schon bekannt. Er liefert - wie in Zeile 1 und Zeile 3 - den 
Wert -1 (TRUE). Da die Klammersetzung absoluten Vorrang vor 
allen anderen Operatoren hat, berechnen wir als nächstes den 
Ausdruck (1>3). Sehr wahrscheinlich wissen Sie so gut wie ich, 
daß 1 nicht größer als 3 ist. Also erhalten wir den Wert 0 
(FALSE). Mit etwas mathematischer Vorkenntnis lassen sich die 
drei Faktoren nun folgendermaßen zusammenfassen: (-l)+7-(0) = 
6 . 

So weit, so gut - wenn da nicht noch die logischen Operatoren 
wären. 


Print 10*10 And 14 Or 3<>2 
Print 10*10 And (14 Or 3)<>2 
Print 10*(10 And 14 Or 3<>2) 


-> Ausgabe: -1 
-> Ausgabe: 100 
-> Ausgabe: -10 
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Drei neue Zeilen, die - für den Laien - fast identisch sind, und 
trotzdem verschiedene Ergebnisse liefern. 

Des Rätsels Lösung: In Zeile 1 finden Sie keine Klammer. Daher 
eignet sie sich besonders dazu, die Prioritäten der verwendeten 
Operatoren zu erläutern. Als erstes wird in diesem Fall die 
Punkt-Rechnung durchgeführt, also 10*10. Das ergibt 100. Als 
nächstes kommt die Vergleichsoperation <> dran. Alle Vergleiche 
haben Vorrang vor logischen Operatoren. Es soll hier festgestellt 
werden, ob 3 ungleich 2 ist. Da es das ist, erhalten wir hieraus 
den Wert -1 (TRUE). Zum Schluß bearbeiten wir in dieser Zeile 
die Booleschen Operatoren. Da beide auf derselben Ebene liegen, 
ergibt sich die Frage, welche Operation von beiden zuerst dran 
kommt - AND oder OR? In solchen Fällen gilt die goldenen 
Regel: immer von links nach rechts! Ich setze nun voraus, daß 
Sie sich über das Verfahren der logischen Verknüpfungen im 
Kapitel 4 "Basis-BASIC" eingehend informiert haben. 

100 -> Binär: 01100100 
AND 14 -> Binär: 00001110 

00000100 -> Dezimal: 4 

'-> 4 -> Binär: 100 

OR -1 -> Binär: 1...111111 

1...111111 -> Dezimal: -1 


Als Ergebnis der ersten Zeile erhalten wir den Wert -1 (TRUE). 
In Zeile 2 habe ich hier nichts weiter gemacht, als (14 Or 3) zu 
einem Ausdruck zusammenzufassen. Da - wie gesagt - die 
Klammerrechnung Vorrang hat, erhalten wir daraus: 

14 -> Binär: 00001110 
OR 3 -> Binär: 00000011 

1111 -> Dezimal: 15 


Wie in Zeile 1 erhalten wir auch hier aus 10*10 den Wert 100. 
Weil auch hier wieder der Vergleich <> Vorrang vor AND hat, 
beziehen wir nun daraus den Wert -1 (TRUE), da der Klam- 
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merwert 15 tatsächlich ungleich 2 ist. Zum Schluß verknüpfen 
wir die beiden Teilergebnisse im AND-Modus: 

100 -> Binär: 01100100 
AND -1 -> Binär: 1..1111111 

01100100 -> Dezimal: 100 


Das Ergebnis der zweiten Zeile heißt 100. 

Die dritte Zeile ist wiederum nur geringfügig variiert. Wie ge¬ 
sagt, es wird erst einmal die Klammer berechnet. Darin finden 
wir als höchste Priorität den Ungleich-Vergleich <>. Ist drei un¬ 
gleich zwei? Ja, also erhalten wir TRUE (-1). Als zweites stehen 
sich eine AND- und eine OR-Verknüpfung gleichwertig gegen¬ 
über. Ich fange links an: 

10 -> Binär: 00001010 
AND 14 -> Binär: 00001110 


00001010 -> Dezimal: 10 >-. 


'-> 10 -> Binär: 1010 

OR -1 -> Binär: 1...111111 


1...111111 -> Dezimal: -1 


Als Ergebnis des Klammerausdrucks erhalten wir wieder -1 
(TRUE). Diese -1 wird nun mit dem Wert 10 multipliziert, und 
siehe da - es ergibt sich der Negativ-Wert -10. 

Ich hoffe, daß es mir anhand dieser zwei kleinen Beispiele ge¬ 
lungen ist, Ihr kritisches Auge im Umgang mit Verknüpfungen 
dieser Art etwas geschärft zu haben. Nun wissen Sie wenigstens 
ungefähr, was Ihnen an Verwirrungen bevorstehen kann, und 
über Bedingungen wie die folgende wundern Sie sich dann hof¬ 
fentlich nicht mehr all zu sehr. 

If (10*00 And 14 Or 3<>2))=-10 
Print "Heureka!" 

Endif 
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Als Leckerbissen folgt nun ein kleines Programm, das Ihnen als 
Anregung für die Lösung sogenannter Kniffel-Aufgaben dienen 
soll. 

Stellen Sie sich bitte vor. Sie hätten folgende Aufgabe zu lösen: 

XX * X Eine zueistellige Zahl ist mit einer 

- einstelligen Zahl zu multiplizieren. 

XX Das Ergebnis muß wieder zueistellig sein. 

+ XX Dazu wird ein zueistelliger Wert addiert, 

- und das Ergebnis der Rechnung muß wieder 

= XX zweistellig sein. 

Der Witz an der Sache ist nun, daß für alle neun möglichen 
Stellen alle neun Ziffern von 1 bis 9 je einmal verwendet wer¬ 
den müssen. Es darf also jede Ziffer nur einmal Vorkommen. Es 
ist nur ein einziges korrektes Ergebnis möglich. 

Das nun folgende Programm löst diese Aufgabe völlig "un¬ 
mathematisch", und es sind natürlich wesentlich elegantere 
mathematische Lösungen vorstellbar. Da diese jedoch extrem 
kompliziert sind und von Ihnen nicht erwartet werden kann, sich 
in die höhere Mathematik zu vertiefen, habe ich die "logische" 
Lösung gewählt. Mathematiker mögen mir verzeihen. Ich habe es 
mit der Algebra versucht, mußte jedoch nach mehreren er¬ 
folglosen Ansätzen aufgeben. 

Ein weiterer Effekt dieses Programms ist der, daß daran her¬ 
vorragend der zeitliche Aufwand verschiedener Konstellationen 
nachvollzogen werden kann. Versuchen Sie dazu einmal, das 
Programm so zu variieren, daß trotz der Änderung der Algo¬ 
rithmus logisch erhalten bleibt. Beispielsweise kann die vorletzte 
IF-Abfrage: 

If Len(Ergebnis$+B$)=9 

ohne weiteres um drei Zeilen - direkt unter B$=Str$(B%) - ver¬ 
setzt werden. Außerdem könnte man die String-Umwandlung 
I$=Str$(I%) streichen und den Ausdruck Str$(I%) statt 1$ direkt 
einsetzen. Oder Sie verwenden statt der 4-Byte-Integer 1%, J%, 
K%, A%, B% und C% einfach Realvariablen. Der Zeitaufwand 
wird sich in allen drei Fällen erhöhen. In der Wahl der Varian- 



Programmstruktur 


157 


ten lassen Sie bitte Ihre Phantasie spielen. Das Wissen um den 
jeweiligen Zeitaufwand wird Ihnen später bei der Entwicklung 
und Optimierung eigener Programme sehr von Nutzen sein. 


TX=Timer ! Start-Timer festhalten 

For IX=12 To 98 ! Zählschleife für ersten 

1 ! zweistelligen Wert 

If (IX Mod 11)>0 And (IX Mod 10)>0 I Ist IX durch 11 oder 10 


1 glatt teilbar, so kann es sich nur un Schnapszahlen 
1 (22, 33 etc.) oder Nullzahlen (20, 30 etc.) handeln und 
1 die können wir hier nicht gebrauchen. 


IS=Str$(IX) 

I2$=Str$(IX Mod 10) 

13S=StrS(IX Div 10) 

For JX=1 To 9 
JS=StrS(JX) 

If Instr(I$,JS)=0 

i 

AX=IX*JX 

If AX>11 And AX<99 
If (AX Mod 11>0) And (AX Mod 

i 

Clr CX 
A$=Str*(AX) 

A2S=StrS(AX Mod 10) 
A3$=StrS(AX Div 10) 
CX=Instr(AS,13$) 

CX=Max(CX,Instr(A$,12$)) 
CX=Max(CX,Instr(AS,J$)) 

If Len(IS+JS+A$)=5 And CX=0 
1 bisherigen Rechnung = 5 i 
1 verwendeten Ziffern in ei 


I IX in String umwandeln 
I Einerstelle von IX 
I Zehnerstelle von IX 
I Einstellige Schleife 
1 JX in String umwandeln 
I Ist Ziffer JX in den 
! IX-Ziffern enthalten? 

! Nein, dann multiplizieren. 

! Ergebnis zweistellig und 
10>0) ! glatt durch 11 oder 
! 10 teilbar? (s.o.) 

! INSTR-Positionsspeicher klar 
! AX in String unwandeln 
I Einerstelle von AX 
I Zehnerstelle von AX 
• Zehnerstelle von IX in AX? 

! Einerstelle von IX in AX? 

! JX in AX enthalten? 

! Ziffernanzahl der 
ind keine der bisher 
ner anderen enthalten? 


For KX=12 To 98 I 

' I 

K$=StrS(KX) I 

K2$=Str$(KX Mod 10) I 

K3S=StrS(KX Div 10) I 

Ergebnis$=I$+J$+A$+K$ ! 

' I 

If Len(Ergebnis$)=7 I 

If (KX Mod 11>0) And (KX Mod 
1 durch 10 oder 11 glatt tei 
CX=Instr(A$,K3$) I 

CX=Max(CX,Instr(A$,K2$)) I 
CX=Max(CX,Instr(I$,K3$)) ! 
CX=Max(CX,Instr(I$,K2$)) ! 

CX=Max(CX,Instr(K$,J$)) ! 

If CX=0 ! 

' Ziffern in einer anderen 
BX=AX+KX ! 

■ ! 
BS=Str$(BX) ! 


Schleife für die zu 
addierende Zahl 
KX in String umwandeln 
Einerstelle von KX 
Zehnerstelle von KX 
Ziffernanzahl der bisherigen 
Rechnung feststellen 
Anzahl = 7? 

10>0) I ist KX 
Ibar? (s.o.) 

Zehnerstelle von KX in AX? 
Einer von KX in AX? 

Zehner von KX in IX? 

Einer von KX in IX? 

JX in KX enthalten? 

Keine der bisherigen 
Zahl enthalten? 

Multiplikationsergebnis 

und KX addieren 

BX in String unwandeln 
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If BX>11 And BX<99 I Ergebnis zweistellig? 

If (BX Mod 11>0) And (BX Mod 10>0) ! Ist es 
1 weder durch 10 noch 11 teilbar? (s.o.) 

If Len(ErgebnisS+BS)=9 ! Anzahl aller 
' verwendeten Ziffern = 9? 

CX=Instr(B$,I3S) 


CX=Max(CX,Instr(BS,12$)) 
CX=Hax(CX,Instr(BS,A3S)) 
CX=Max(CX,Instr(BS,A2S)) 
CX=Max(CX,Instr(B$,K3$>) 
CX=Max(CX,Instr(BS,K2*)) 
CX=Max(CX,Instr(B$,J$)) I--' sind 
If CX=0 ! Nein? 

Print "Sek. : ";(Timer-TX>/200 


. Prüfen, ob 
I eine der 
I bisherigen 
I Ziffern im 
I Endergebnis 
! enthalten 


Print 
Print 1 
Print " 
Print " 
Print " 
Print 11 
Print " 
End 
Endif 
Endif 
Endif 
Endif 


IX;" * ";JX 

_II 

"; AX 
+ "; KX 

_II 

= "; BX 


I dann 
I Lösung 
I ausgeben 
i ... 

! ... 

I ... 

I und Ende !! 


! Für die, die nichts mit der Funktion 
! MAXO in den INSTR-Abfragen anfangen 
! können: 

Endif ! Durch INSTR soll festgestellt werden, 

Endif ! ob eine der jeweils verwendeten Ziffern 

Endif ! schon vorher verwendet wurde. 

Next KX I Da mehrere INSTR-Abfragen hintereinander 

Endif ! stehen und anschließend auf Null getestet 

Endif ! wird, kann eine hintenstehende Abfrage den 

Endif I CX-Uert einer vorangegangenen mit Null 

Endif ! überschreiben. Um evtl, schon gefundene 

Next JX ! Positionen zu erhalten, wird sie durch 

Endif I MAXO in die jeweils nächste INSTR-Abf rage 

Next IX ! hinübergerettet. 


SELECT [CONT] CASE [TOI [DEFAULT] ENDSELECT 


{ S H CON }{ CA }{ DEFA }{ ENDS } 
Fall-Entscheidung 

SELECT Expr 

CASE Konstantei [TO Konstante2 [,[...] TO [...]]] 

... auszuführende Programmteile, wenn Expr gleich 
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Konstantei, bzw. - bei Option TO • wenn Expr 
innerhalb des Bereichs von Konstantei bis 
Konstante2 liegt. 

[CONT] 

[CASE Konstantei [,Konstante2 [,Konstantes [,...]]] 

... auszuführende Programmteile, wenn Expr gleich 
Konstantei oder gleich Konstante2 oder 
gleich Konstantes oder... oder...] 

... ggf. weitere CASE-Entscheidungen 
[CONT] 

[DEFAULT 

... auszuführende Programmteile, wenn keine der 
vorhergehenden Abfragen zugetroffen hat.] 

ENDSELECT 

Diese Fallentscheidung bietet die Möglichkeit zu einer Expr-ab- 
hängigen Verzweigung (select = auswählen/case = falls). Viele 
werden diese Konstruktion aus der Sprache C kennen 
(Switch/Case). Expr kann ein beliebiger numerischer oder alpha¬ 
numerischer Ausdruck sein, dessen Ergebnis ggf. vorher ermit¬ 
telt wird. Es ist auch die Angabe von Variablen oder Konstanten 
möglich. 

Wird ein(e) alphanumerischer Ausdruck, Konstante oder 
Variable in Expr verwendet, werden davon nur die ersten vier 
Zeichen zum Vergleich herangezogen. Diese werden dann intern 
in einen 4-Byte-Wert umgewandelt. 

Hinter CASE wird bei Werte-SELECT in Konstante ein nume¬ 
rischer Wert oder ein max. vier Zeichen langer Text als Kon¬ 
stante oder String-Variable angegeben, der dann daraufhin über¬ 
prüft wird, ob Expr ihm entspricht. Bei Werte-SELECT ange¬ 
gebene Strings werden auf Gültigkeit geprüft, indem der 
SELECT-Wert mit den ASCII-Werten der ersten vier Zeichen 
des Textes (sofern vorhanden) verglichen wird. Beispiel: 

A%=ASC(inkey$)*2‘24+ASC(inkey$)*2‘16+ASC(inkey$)*2'8+ASC(inkey$) 

SELECT AX 
CASE "abcd" 

PRINT "abcd wurde eingegeben!" 
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DEFAULT 

PRINT "irgendwas!" 
ENDSELECT 


In diesem Fall werden vier Tasten abgefragt. Der ASCII-Wert 
aller einzelnen Tasten wird zu einen Gesamt-4-Byte-Wert ver¬ 
knüpft. Auf dieselbe Art analysiert CASE bei Werte-SELECT 
einen angegebenen String. Es wird also ein MKL$-, MKI$- oder 
CHR$-String gebildet (je nach Länge des angegebenen CASE- 
Strings), der dann mit Expr verglichen wird. 


3-Zeichen-Strings: 

(ASCII-Wert des 1. 
+ (ASCII-Wert des 2. 
+ (ASCII-Wert des 3. 


Zeichens) * (2'16} 
Zeichens) * (2‘8) 
Zeichens) 


2-Zeichen-St rings: 

(ASCII-Wert des 1. Zeichens) * (2*8) 
+ (ASCII-Wert des 2. Zeichens) 
etc. 


Bei String-SELECT ist ebenfalls nur die Angabe eines maximal 
vier Zeichen langen Strings hinter CASE zulässig. 

Entspricht Expr der CASE-Auswahl, wird die darauffolgende 
Programmsequenz ausgeführt und daran anschließend direkt zu 
der auf das zugehörige ENDSELECT folgenden Programmzeile 
gesprungen. Evtl, weitere CASE-Abfragen derselben Gruppe 
bleiben dann also unberücksichtigt. Hier ist die 
SELECT...CASE-Konstruktion mit IF...ELSE IF vergleichbar. 
Der wesentliche Unterschied ist der, daß der Interpreter die 
Kontrolle über die Gültigkeit der Auswahl-Vorgaben bei CASE 
automatisch vornimmt. Die ELSE IF-Konstruktion: 

AX=Random(120) 

Print AX, 

If AX>5 And AX<44 

Print "innerhalb" >-. 

Else If AX<6 Or AX>43 And AX<100 

Print "außerhalb < 100" >-. 

Else If AX>100 

Print "außerhalb > 100" >-. 

Else 

Print "100" > . 

Endi f 
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sieht mit SELECT...CASE folgendermaßen aus: 

AX=Rando«n(120) 

Print AX, 

Select AX 
Case 6 To 43 

Print "innerhalb" >-. 

Case To 6,44 To 99 

Print "außerhalb < 100" >-. 

Case 101 To 

Print "außerhalb > 100" >-. 

Default 

Print "100" >-. 

Endseiect 

.<-1 -i-i-i 

Die Verzweigungskriterien hinter CASE sind im Vergleich zu 
den >-, AND- und OR-Bedingungen der ELSE IF-Struktur 
durchschaubarer, da sie der Formulierung von Bedingungen im 
normalen Sprachgebrauch eher entsprechen. Eine weiterer Vor¬ 
teil gegenüber ELSE IF ist der erhebliche Geschwindigkeits¬ 

gewinn: 

TX=Timer 

For IX=1 To 10000 ! 10.000 Durchläufe 

Select IX 

Case 20000 I 1. Abfrage 

Case 20000 ! 2. Abfrage 

Endselect 
Next IX 

Print "CASE-Abfrage : (Timer-TX)/200; H Sek." 

TX=Timer 

For IX=1 To 10000 ! 10.000 Durchläufe 

If IX=20000 1 1. Abfrage 

Else if IX=20000 I 2. Abfrage 

Endif 
Next IX 

Print "ELSE IF-Abfrage : ";(Timer-TX)/200;" Sek." 

An den Sprunglinien im obigen Struktur-Vergleich können Sie 
erkennen, daß, wenn eine CASE-Bedingung erfüllt ist, an¬ 
schließend keine der folgenden CASE-Bedingungen durchlaufen 
wird. So wird im folgenden Beispiel nur die Zeile PRINT "A" 
ausgeführt, obwohl die folgende CASE-Bedingung "A" To "Z" 
ebenfalls zutrifft. 

XS="A" 

Select XS 
Case "A" 
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Print "A" >- 

Case "A" To "Z" 
Print "A bis Z" 
Endselect 


Durch die optionale Angabe von TO kann ein ganzer Bereich 
angegeben werden (z.B. CASE 1 TO 10/CASE "a" TO "z" oder 
CASE "abc" TO "xyz"), innerhalb dessen Grenzen ’Expr’ liegen 
muß, um die zugehörige Sequenz zu durchlaufen. Wird die erste 
(kleinere) Bereichsgrenze vor TO oder die zweite (größere) Be¬ 
reichsgrenze nach TO weggelassen, wird intern automatisch die 
kleinstmögliche bzw. größtmögliche Grenze angenommen. Durch 
Verwendung eines Kommas als Trennzeichen können auch 
mehrere Einzelangaben zusammengefaßt werden (z.B. CASE 
a,h,j,m oder CASE 1,33,7). Es ist möglich, die CASE-Bedin- 
gungsformate in einer CASE-Zeile beliebig zu vermischen (z.B. 
CASE TO "bYABC" TO "XYZ",65,66,67,"Ä”). 

Wurden sämtliche angegebenen CASE-Anweisungen ohne Wahr- 
Ergebnis passiert, kann am Ende des SELECT-Blocks 
DEFAULT eingesetzt werden, was dazu führt, daß der zwischen 
DEFAULT und ENDSELECT liegende Programmteil ausgeführt 
wird (vergleichbar mit ELSE bei IF-Abfragen). 

Wird direkt vor einer CASE-Anweisung am Ende einer Ver¬ 
zweigung die Option CONT verwendet, bewirkt dies, daß die 
direkt danach stehende CASE-Abfrage übersprungen wird und 
die dieser CASE-Abfrage unterstellte Sequenz zusätzlich zur 
schon ausgeführten Verzweigung ebenfalls ausgeführt wird. 
Nach Erledigung dieser Folgesequenz wird - sofern nicht auch 
diese mit CONT abgeschlossen wurde - zur ersten Zeile hinter 
ENDSELECT gesprungen. CONT kann ggf. auch direkt vor 
DEFAULT eingesetzt werden, was bewirkt, daß - vorausgesetzt, 
der vor DEFAULT stehende Programmblock wurde ausgeführt - 
die unter DEFAULT eingefügte Alternativ-Sequenz zusätzlich 
abgearbeitet wird. Steht CONT nicht direkt vor CASE oder 
DEFAULT, wird es als CONT zur Programmfortsetzung nach 
einem STOP-Befehl interpretiert. 
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Übrigens ist es zwecklos, Programmzeilen zwischen SELECT und 
dem ersten CASE unterbringen zu wollen, da diese Zeilen vom 
BASIC nicht registriert werden. 

Statt DEFAULT kann auch OTHERWISE { OT } geschrieben 
werden. Dieser Ausdruck wird vom Interpreter in DEFAULT 
umgewandelt. 


6.3 Bereichsdeklaration 


! 


Kommentar Innerhalb einer Befehlszeile 


Befehlszeile I Kommentartext 

Grundsätzlich hat dieses Ausrufungszeichen die gleiche Aufgabe 
wie der Befehl REM. Der darauf folgende Text wird als Pro¬ 
gramm-Kommentar deklariert und vom BASIC bei der Inter¬ 
pretation "übersehen". Sie sind dieser Form der Kommentar-De¬ 
klaration bei den Beispielprogrammen hier im Buch schon häufi¬ 
ger begegnet. 

Der Unterschied zwischen ! und REM besteht darin, daß durch ! 
der Kommentartext direkt an eine Befehlszeile angehängt wer¬ 
den kann. In DATA-Zeilen ist diese Abgrenzung allerdings nicht 
möglich, da sie hier als Text-DATA angesehen würde. Beispiel: 

Input A$ ! String eintesen 

Print A$ I String ausgeben 

Edit ! Programmende 

Am Anfang einer Zeile verwendet, wird ! in die REM-Abkür- 
zung (’) umgewandelt. 




164 


Das große GFA-BASIC-Buch 


DATA { D } 


Daten-Speicher deklarieren 


DATA [Wertedatas [,["] Textdatas 

Der Anweisung wird ggf. eine Liste durch Kommata getrennter 
Werte oder Texte übergeben. Sie dient dazu, einem auftretenden 
READ-Befehl die entsprechende Anzahl von Daten zur Verfü¬ 
gung zu stellen. 

Wie bei RESTORE beschrieben, kann ein DATA-Zeiger auf 
eine bestimmte Marke (Label) gerichtet werden. READ liest 
dann der Reihe nach die DATAs, die auf die angegebene Marke 
folgen. Wird kein RESTORE verwendet, werden vom Program¬ 
manfang aus nacheinander so viele DATAs eingelesen, wie 
READ-Anweisungen vorhanden sind. Werden mehr READ-An- 
weisungen eingesetzt als DATAs bis zum Programmende vorhan¬ 
den sind, wird eine entsprechende Fehlermeldung ausgegeben. 

Eine Besonderheit des GFA-BASICs ist es, daß Text-DATAs 
nicht zwischen An- und Abführungsstriche gesetzt werden 
müssen. Es sei denn, daß in Text-DATAs Kommas Vorkommen. 
In diesem Fall würde das Text-Komma als Trenn-Komma zum 
nächsten String-Teil gewertet werden. Werden die An- 
/Abführungzeichen vernachlässigt, liest der Interpreter alle vor¬ 
kommenden Zeichen (auch Leerzeichen), die zwischen den ein¬ 
schließenden Kommas aufgeführt sind. 

Numerische READ-Anweisungen sind darauf angewiesen, auch 
numerische DATAs vorzufinden. Diese können dann allerdings 
auch in der binären, hexadezimalen oder oktalen Schreibweise 
angegeben sein. Liest ein Text-READ ein numerisches Zeichen, 
so wird es einfach als Textzeichen interpretiert. 

Variablen können in den DATAs nicht übergeben werden. 
Kommen im Programm keine READ-Anweisungen vor, kann in 
DATA-Zeilen beliebiger Text stehen. Dieser Text bleibt dann - 
wie bei REM - vom Programm unberücksichtigt. 
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Schauen Sie sich hierzu bitte auch die Beispiele zu WRITE und 
TAB() an. 


READ { REA} DATA-Werte auslesen 


READ Var [,Var2,Var$,Var2$,...] 

Der/den angegebenen Variablen Var werden die jeweils gelese¬ 
nen DATA-Einträge zugeordnet. Wird kein RESTORE Label¬ 
name verwendet, werden der Reihe nach vom Programmanfang 
aus so viele DATAs eingelesen (falls vorhanden), wie READ- 
Anweisungen ausgeführt werden. Weiteres siehe unter DATA. 


REM { R Oder ’ oder J } Kommentar einfügen 


REM [Kommentar] 

Möchten Sie Ihr Programm zur besseren Verständlichkeit mit 
Kommentar versehen, können Sie mit der Anweisung REM an 
beliebiger Programmstelle eine beliebige Kommentarzeile ein¬ 
fügen. Diese Kommentarzeilen bleiben vom Interpreter im Pro¬ 
grammverlauf unberücksichtigt. Als Abkürzung können Sie für 
REM auch das Hochkomma (Apostroph) verwenden. 

Außerdem kann auch ein Ausrufungszeichen (Kommentar-Mar¬ 
ker innerhalb einer Befehlszeile) eingesetzt werden. Dieses wird 
- sofern es sich am Zeilenanfang befindet - in das REM- 
Zeichen ’ umgewandelt. 

Es ist empfehlenswert, diese Möglichkeiten zur Kommentierung 
ausgiebig zu nutzen. Bei größeren Programmen erleichtert es 
Ihnen das Auffinden von bestimmten Programmteilen. Außer- 
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dem machen kleine Bemerkungen die Logik Ihrer Programm¬ 
führung und evtl, die Zusammenhänge auch für andere über¬ 
schaubarer. 


RESTORE { RES } DATA-Zelger setzen 


RESTORE [Labelname] 

RESTORE ohne Angabe einer Marke bewirkt, daß der DATA- 
Zeiger grundsätzlich auf den ersten aller im Programm enthalte¬ 
nen DATA-Einträge gerichtet wird. Durch RESTORE Label¬ 
name kann der DATA-Zeiger auf das erste DATA gerichtet 
werden, das auf das angegebene Label folgt. 

Ab dort werden dann die vorhandenen DATAs eingelesen, bis 
ein neuer RESTORE-Befehl eingesetzt wird oder das letzte aller 
DATAs gelesen wurde. Weitere Informationen hierzu finden Sie 
unter DATA. 


6.4 Variablendeklarationen 


DEFBIT { DEFBI } Boote-Variabie(n) deklarieren 


DEFBIT DefstringS 

DEFxxx-Befehle dienen der globalen Deklaration von Vari¬ 
ablentypen. Es können verschiedene Definitions-Strings verwen¬ 
det werden, die alle Variablen mit der darin angegebenen 
Namensspezifikation dem entsprechenden Variablentyp zu¬ 
ordnen. 

Diese Deklaration wird üblicherweise zu Programmbeginn aus¬ 
geführt, da sonst eine Unterscheidung zwischen deklarierten und 
frei definierten Variablen erschwert wird. Wird jedoch innerhalb 
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des Programms eine neue Deklaration ausgeführt, ist die vorher¬ 
gehende damit ungültig. Nach einer Deklaration ist es nicht 
mehr nötig, die dadurch betroffenen Variablennamen mit einem 
sogenannten Postfix (Erkennungssymbol, z.B. % für 4-Byte-Inte- 
ger, ! für Boole-Variablen oder $ für String-Variablen) zu ver¬ 
sehen. 

Es ist trotzdem jederzeit möglich, einzelne Variablen separat zu 
definieren, auch wenn sie dieselbe Namensspezifikation wie eine 
globale Deklaration aufweisen. Dazu ist dem separaten Vari¬ 
ablennamen das entsprechende Postfix hinzuzufügen. Damit wird 
die so unmißverständlich gekennzeichnete Variable von der De¬ 
klaration ausgeschlossen. Separat gekennzeichnete Variablen 
haben generell Vorrang vor den globalen Deklarationen. 

DefstringS ist ein String (Konstante, Variable oder Ausdruck), 
durch den die Namensspezifikation festgelegt wird. Bei den fol¬ 
genden Definitionsbeispielen sind die verwendeten DefstringS 
beliebig austauschbar. 

Definitionen: 

DEFBIT "a" 

Alle Variablen, deren Name als ersten Buchstaben ein a trägt, 
sind hiermit - sofern nicht separat definiert (s.o.) - als Boole- 
Variablen (Var!) deklariert. 


DEFBYT "b,c,g-l" 

Alle Variablen, deren Name als erstes Zeichen ein b, c, g, h, i, 
j, k oder 1 trägt, werden als 1-Byte-Integer (Var|) deklariert. 


DEFWRD "word" 

Alle Variablen, deren Name mit den Buchstaben word beginnt, 
werden als 2-Byte-Integer (Var&) deklariert. 
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DE FI NT ”H,i2,i3" 

Alle Variablen, deren Name mit den Buchstaben il, i2 oder i3 
beginnt, werden als 4-Byte-Integer (Var%) deklariert. 


DEFFLT "a-c,x-z" 

Alle Variablen, deren Name als ersten Buchstaben ein a, b, c, x, 
y oder z trägt, werden als 8-Byte-Fließkommavariablen (Var#) 
deklariert. 


DEFSTR "d-f" 

Alle Variablen, deren Name als ersten Buchstaben ein d, e oder 
f trägt, werden als String-Variablen (Var$) deklariert. Beispiel: 


Oefint "i" 

I 

I_s tring$="XYZ" 

i — 

Print I_string$ 

I 

I 

I 

I_4byte=1548892.88 

I 

Print I_4byte 


I Alle mit I beginnenden Variablen 
! gelten ab jetzt als 4-Byte-Integer. 

! Beliebige Zuweisung zu einer mit 
I I beginnenden String-Variable. 

! Es wird XYZ ausgegeben, da trotz 
I der vorangegangenen Definition die 
! direkt angegebene String-Spezifikation 
! S gültig bleibt. 

! Beliebige Zuweisung zu einer mit I 
! beginnenden Variablen ohne Post fix. 

! Es wird 1548892 ausgegeben, übergebene 
! Nachkommastellen werden integriert. Die 
I 4-Byte-Definition könnt zur Geltung. 


DEFBYT { DEFB } I-Byte-Integervarlablen deklarieren 

DEFBYT DefstringS 

Siehe Erläuterungen zu DEFBIT. 
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DEFFLT { DEFFL } S-Byte-FlieBkommavariabien deklarieren 


DEFFLT DefstringS 

Statt DEFFLT kann im Editor auch DEFSNG oder DEFDBL 
verwendet werden. Diese Angaben werden vom Editor bei der 
Syntaxkontrolle in DEFFLT umgewandelt. Sonst siehe DEFBIT. 


DEFINT { DEFI } 4-Byte-lntegervariablen deklarieren 

DEFINT DefstringS 

Siehe Erläuterungen zu DEFBIT. 


DEFSTR { OEFS } ZeichenkettenvariabJe(n) deklarieren 

DEFSTR DefstringS 

Siehe Erläuterungen zu DEFBIT. 


DEFWRD { DEFW } 2-Byte-lntegervariablen deklarieren 

DEFWRD DefstringS 

Siehe Erläuterungen zu DEFBIT. 
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6.5 Unterprogramme 


Funktion definieren 


DEFFN 


DEFFN Funkt.name [(Var-Liste)] = Funkt.expr 

DEFFN ist eine sehr komfortable Möglichkeit, numerische oder 
alphanumerische Funktionen kompakt zu definieren. 
"Funkt.name" steht für einen beliebigen Namen, mit dem die 
Funktion durch FN (bzw. @) angesprochen werden kann. In der 
Wahl des Funktionsnamens werden Ihnen keinerlei Einschrän¬ 
kungen auferlegt. Sie können außerdem auch BASIC-Befehls- 
namen oder Namen schon existierender Variablen verwenden. 
Dies ist möglich, da der Funktionsname untrennbar mit der 
unter ihm definierten Funktion in Bezug steht. Die Verwendung 
von Feld-Variablennamen ist allerdings nicht zulässig. Das erste 
Zeichen kann, anders als bei Variablen, auch eine Ziffer sein. 

Dem Namen kann optional (wahlfrei) eine Liste von Variablen¬ 
namen in Klammern angefügt werden (Var-Liste), deren Inhalte 
dann innerhalb der Funktion verarbeitet werden können. Die 
einzelnen Variablennamen sind dabei durch Komma voneinander 
zu trennen. Diese Parameterliste kann ohne weiteres Variablen 
unterschiedlicher Typen (Real, Integer, String etc.) beinhalten. 
Innerhalb der Funktion sind dann allerdings nur Operationen 
erlaubt, die dem verwendeten Funktionstypen entsprechen. D.h., 
wenn die Funktion als String-Typ deklariert wurde (z.B. DEFFN 
FunktionS...), können nur String-Operationen ausgeführt werden. 
Bei numerischen Funktionstypen können folglich nur numerische 
Operationen eingesetzt werden. 

Haben Sie eine Parameterliste vorgesehen, müssen beim Funk¬ 
tionsaufruf dementsprechend viele und dem jeweiligen Vari¬ 
ablentyp entsprechende Werte, Strings, andere Variablen oder 
Ausdrücke übergeben werden. Entsprechen die übergebenen Pa¬ 
rametertypen nicht der Liste oder werden zu viele bzw. zuwenig 
Parameter übergeben, erscheint eine Fehlermeldung. 
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Die angegebenen Listen-Variablen müssen jedoch nicht zwin¬ 
gend innerhalb der Funktion verwendet werden (Dummy). 
Andererseits können globale Variablen in der Funktion verwen¬ 
det werden, die nicht in der Parameterliste stehen. Bei Aufruf 
der Funktion werden dann die aktuellen Inhalte der darin ver¬ 
wendeten Variablen angenommen und weiterverarbeitet. Existiert 
eine globale Variable mit gleichem Namen wie der einer Para¬ 
meter-Aufnahmevariable, so kommt deren Inhalt nicht zur Gel¬ 
tung, da die Listen-Variable innerhalb der Prozedur als lokal 
verarbeitet wird. D.h. sie hat dann ausschließlich den Wert, der 
ihr bei Funktionsaufruf über die Parameterliste zugewiesen 
wurde, und nach Rückkehr wieder den vorherigen globalen 
Inhalt. 

Die Länge einer Funktion wird durch die maximale Eingabe¬ 
zeilenlänge (256 Zeichen) beschränkt. Reicht dieser Platz nicht 
aus, um eine Funktion komplett zu definieren, können aus einer 
Funktion heraus andere Funktionen aufgerufen werden. Man 
kann also Funktionen beliebig miteinander verketten. Eine 
Funktion kann demnach ohne weiteres ausschließlich aus Funk¬ 
tionsaufrufen und deren Verknüpfungen bestehen. 

Funktionen können an jeder beliebigen Stelle des Programms 
definiert sein. Da bei Programmstart alle DEFFNs initialisiert 
werden, kann dies also auch am Programmende geschehen, selbst 
wenn der Funktionsaufruf FN (bzw. @) vor der Funktion auf- 
tritt. Zu Beginn des Programmlaufs durchsucht der Interpreter 
den Programmtext nach evtl, vorhandenen DEFFNs. Deren In¬ 
halt ist ihm daher vor Ausführung der ersten Zeile bereits be¬ 
kannt. 

Vorsicht: Endlosschleifen, worin sich zwei Funktionen gegen¬ 
seitig aufrufen, können auch durch die Break-Funk¬ 
tion <Control/Shift/Alternate> nicht mehr unter¬ 
brochen werden. Rekursive Aufrufe haben denselben 
Effekt. 
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Funktion aufrufen 


FN{@} 


FN Funktionsname [(Parameterliste)] 

Mit FN bzw. dessen Kürzel @ können selbstdefinierte Funk¬ 
tionen aufgerufen werden. Sollen Parameter an die Funktion 
übergeben werden, wird dem Aufruf in Klammern eine Para¬ 
meterliste nachgestellt, innerhalb derer die einzelnen Parameter 
ggf. durch Kommas voneinander zu trennen sind. Wie bei 
DEFFN erwähnt, ist darauf zu achten, daß diese Angaben den 
in der DEFFN-Var-Liste aufgeführten Variablentypen ent¬ 
sprechen. 

Das Ergebnis einer Funktion kann - wie bei jeder anderen 
BASIC-Funktion auch - über einen Ausgabe-Befehl (PRINT, 
WRITE, TEXT, OUT) ausgegeben, durch eine Zuweisung einer 
dem Funktionstyp entsprechenden Variablen übergeben und in 
entsprechende Ausdrücke oder Bedingungsabfragen integriert 
werden. 


FUNCTION..RETURN..ENDFUNC { FU..RET..ENDF } 


Funktion 

FUNCTION Name [(Varl,Var2%,Var3$,...[,VAR Var,...])] 

... auszuführende Programmteile 
RETURN Back 
ENDFUNC 

FUNCTION kennzeichnet den Anfang einer selbstdefinierten 
mehrzeiligen Funktion. Es kann eine optionale Liste von lokalen 
Variablen (wie bei DEFFN und PROCEDURE) angegeben wer¬ 
den, welche ggf. die durch FN (bzw. @) übergebenen Daten 
aufnehmen. Dabei ist darauf zu achten, daß die Typen der 
Variablen den übergebenen Parametern entsprechen. 
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Es ist auch möglich, durch VAR innerhalb dieser Liste Vari¬ 
ablen zu definieren, an die dann durch FN eine globale Variable 
direkt übergeben werden kann (siehe VAR, PROCEDURE). 
Außerdem ist - wie bei PROCEDURE - die Übergabe von in¬ 
direkten Pointer-Parametern möglich (siehe auch GOSUB). 

"Name" ist ein beliebiger Name, der die Funktion benennt. In¬ 
nerhalb der FUNCTION kann beliebig viel Programmtext ange¬ 
ordnet werden. Im Gegensatz zu DEFFN-Funktionen ist es 
möglich, FUNCTION-Funktionen sich selbst aufrufen zu lassen 
(Rekursion). 

Grundsätzlich ist eine FUNCTION mit einer PROCEDURE ver¬ 
gleichbar. Ein Unterschied ist, daß ENDFUNC (wie RETURN 
bei PROCEDURE) zwar den strukturellen Abschluß einer 
FUNCTION-Funktion bildet, jedoch im Gegensatz zu 
PROCEDURE...RETURN diese Endmarkierung nicht als Rück¬ 
sprunganweisung interpretiert wird. Aus FUNCTION-Funk¬ 
tionen ist nur ein Rücksprung durch RETURN Back möglich, 
was nicht mit dem Prozedurende RETURN verwechselt werden 
darf. 

Trifft das Programm innerhalb einer FUNCTION auf die Rück¬ 
sprunganweisung RETURN Back, wird der hinter RETURN 
stehende Wert, Ausdruck oder Variableninhalt Back als Funk¬ 
tionsergebnis an das Programm zurückgegeben und zu dem dem 
Aufruf folgenden Befehl gesprungen. Es können beliebig viele 
RETURN-Back-Anweisungen innerhalb einer FUNCTION an¬ 
gegeben werden (z.B. innerhalb von IF..ELSEIF..ELSE..ENDIF- 
Abfragen). Wie auch FN-Aufrufe einzeiliger Funktionen 
(DEFFN) kann ein Aufruf mehrzeiliger FUNCTIONs ebenfalls 
beliebig in Ausdrücke und Bedingungen eingebunden bzw. als 
Variablenzuweisung verwendet werden. 

Soll die Funktion alphanumerische (String-)Ergebnisse liefern, 
ist dem Funktionsnamen ein $ anzuhängen (z.B. FUNCTION 
Name$). Beispiel: 

AS="1 ** UPPER/LOWER-Test-String ** 1" 

Print "NORMAL: ";AS 
Print "UPPERS: ";UpperS(AS) 
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Print "LOWERS: ";S)LowerS(A$) 

I 

Function LowerS(L.str$) 

1 Untersucht einen vorgegebenen String auf Großbuchstaben. 

1 Gefundene Großbuchstaben werden in die entsprechenden 
1 Kleinbuchstaben ungewandelt. 

1 L.strS = unzuwandeInder String 

Local L.kX 

For L.kX=1 To Len(L.str$) 

Select MidS(L.strS,L.kX,1) 

Case "A" To "Z","Ä","Ö","ü" 

MidS(L.strt.L.kX,1)=Chr$(Asc(Mid$(L.strS,L.kX,1))+32) 

• Mid$(L.strS.L.kX,1)=Chr$(Asc(Mid$(L.str$,L.kX,1)) Or 32) 

Endseiect 
Next L.kX 
Return L.strS 
Endfunc 

An diesem kleinen Beispiel läßt sich leicht das fast unüber¬ 
schaubare Einsatzgebiet mehrzeiliger Funktionen erkennen. Ihrer 
Phantasie sind da keine Grenzen gesetzt. Hätte Frank Ostrowski 
die RINSTR-Funktion nicht implementiert, wäre sie hiermit 
spielend zu verwirklichen. Soll hier gleichzeitig der Inhalt von 
A$ nach Funktionsende gegen den Lower-Case-String ausge¬ 
tauscht werden, muß man dazu nur den FUNCTION-Kopf fol¬ 
gendermaßen ändern: 


Function Lower$(Var L.strS) 

Übrigens soll die REM-Zeile Mid$(... im Beispiel einen kleinen 
Trick verdeutlichen. Die beiden MID$()-Zeilen unter "A" To "Z" 
lassen sich beliebig austauschen. Wissenswert ist, daß der einzige 
Unterschied zwischen Groß- und Kleinbuchstaben das Bit 5 
(2 A 5=32) des ASCII-Wertes ist. Ist dieses Bit gesetzt, so handelt 
es sich um Kleinbuchstaben (ASCII: 97 - 122). Ist es gelöscht, so 
sind es folgerichtig Großbuchstaben (ASCII: 65 - 90). 
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GOSUB { G Oder @ } Verzweigung zu einer PROCEDURE 


GOSUB Prozedur [(Parameterliste)] 

Eine GOSUB-Verzweigung springt aus der GOSUB-Zeile direkt 
zum Kopf der in "Prozedur" bezeichneten PROCEDURE. Ist die 
Prozedur abgearbeitet, wird vom Prozedurende RETURN aus 
direkt zu der auf den entsprechenden GOSUB-Aufruf folgenden 
Programmzeile zurückgesprungen und dort das Programm fort¬ 
gesetzt. 

GFA-BASIC bietet Ihnen wahlweise auch die Möglichkeit, an 
eine Prozedur eine beliebig lange Parameterliste zu übergeben. 
Diese Parameter werden dort einer Liste von Variablen zugeord¬ 
net, die in Klammern im Prozedurkopf (z.B. PROCEDURE 
Test(Var,Var$,...)) angegeben sind. Die Anzahl der GOSUB-Pa- 
rameter bzw. der PROCEDURE-Aufnahmevariablen ist nur 
durch die maximale Programmzeilenlänge von 256 Zeichen be¬ 
grenzt. 

Typen und Reihenfolge der Parameter in Parameterliste können 
beliebig gemischt werden, solange darauf geachtet wird, daß 
Anzahl, Typ und Listenplatz der Parameter mit Anzahl, Typ und 
Listenplatz der in PROCEDURE angegebenen Aufnahme¬ 
variablen übereinstimmen. 

Durch den Sternchen-Pointer (*Var) können Variablen auch in¬ 
direkt adressiert werden. Das bedeutet, daß ein in der Para¬ 
meterliste angegebener Pointer die Adresse seiner Variablen an 
die Prozedur übergibt und nicht deren Inhalt. Wird nun inner¬ 
halb der PROCEDURE der dafür vorgesehenen Aufnahme¬ 
variablen ebenfalls durch einen Pointer eine Variablenadresse 
zugewiesen, so finden Sie nach Abschluß in der übergebenen 
Variablen den durch den internen Pointer zugewiesenen Wert. 

Die im Prozedurkopf aufgeführten Variablen gelten innerhalb 
der Prozedur als lokale Variablen. D.h., daß die in ihnen ent¬ 
haltenen Werte oder Strings nur innerhalb dieser Prozedur ein¬ 
gesetzt oder abgefragt werden können. Benennen Sie außerhalb 
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dieser Prozedur globale Variablen mit dem gleichen Namen, so 
ist das BASIC in der Lage, diese von den internen lokalen Va¬ 
riablen zu unterscheiden. Nach Rücksprung aus der Prozedur in 
das Hauptprogramm werden die globalen Inhalte wieder restau¬ 
riert. 

Zur Bildung des Prozedurnamens sind alle normalen alpha¬ 
numerischen und numerischen Zeichen (A - Z und 0-9) sowie 
der Tiefstrich (Underscore _) und Punkt erlaubt. Anders als bei 
Variablennamen kann hier auch eine Ziffer als erstes Zeichen 
verwendet werden. 

Außerdem kann statt eines indirekten Pointer-Parameters (*Var) 
auch die Variable direkt übergeben werden. Dazu muß an ent¬ 
sprechender Stelle in der PROCEDURE-Aufnahmevariablenliste 
eine VAR-Variable gleichen Typs vorgesehen werden (siehe 
VAR). Ein weiteres GOSUB-Beispiel finden Sie unter 
PROCEDURE. 


GOTO { GOT } Unbedingter Sprung zu einem Label 


GOTO Label 

Dies ist in herkömmlichen BASIC-Dialekten einer der am 
häufigsten verwendeten Befehle. In GFA-BASIC hält sich dage¬ 
gen seine Verwendung in Grenzen, da in den überwiegenden 
Fällen durch GOSUB und FN der erzielte Effekt wesentlich ele¬ 
ganter erreichbar ist. 

Er bewirkt nichts weiter, als daß das Programm von der Zeile 
aus, in der es auf diesen Befehl trifft, zu der Programmzeile 
verzweigt, die mit dem angegebenen Label-Namen markiert ist. 
Dieses Label kann sich aus beliebigen Zeichen zusammensetzen. 
Genau wie bei Prozedurnamen ist es auch möglich, eine Ziffer 
als erstes Zeichen zu verwenden. Der Label-Name muß mit 
einem nachgestellten Doppelpunkt abgeschlossen werden. 
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Dasselbe Label kann übrigens auch als Sprungziel für RESTORE 
Label verwendet werden. Sprünge in oder aus FOR..NEXT- 
Schleifen oder PROCEDUREn sind nicht erlaubt. Wird dies 
versucht, so erscheint eine Fehlermeldung. 


LOCAL { LOC } Lokale Variablen deklarieren 


LOCAL Loc.var [.Lokale Variablenliste,...] 

Es können innerhalb einer PROCEDURE - und auch in einer 
FUNCTION - beliebige Variablen als lokal deklariert werden. 
Diese können dann ausschließlich in der Prozedur verwendet 
werden, in der sie deklariert wurden, bzw. in den von dieser 
Prozedur aufgerufenen Unter-Prozeduren. Für diese Unter-Pro¬ 
zeduren ist dann die lokale Variable der höheren Ebene gleich¬ 
bedeutend mit globalen Variablen. 

Wird im Hauptprogramm bzw. in Routinen höherer Ebene eine 
Variable mit gleichem Namen benannt, so ist der Interpreter in 
der Lage, diese von den lokalen Variablen der aktuellen Routine 
zu unterscheiden (siehe PROCEDURE). 

Werden mehrere Variablen gleichzeitig deklariert, können sie 
unterschiedlichen Typs sein und sind dann durch Kommata 
voneinander zu trennen. 


ON ... GOSUB Bedingte Verzweigung zu Prozeduren 


ON Wert GOSUB Procl [,Proc2,Proc3,...] 

ON Wert Procl [,Proc2,Proc3,...] 

Mit diesem Befehl lassen sich mehrere Prozeduren zu einer Liste 
zusammenfassen, die dann je nach angegebenem ’Wert’ (nume¬ 
rischer Ausdruck, Variable oder Konstante) aufgerufen werden 
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Die Entscheidung darüber, zu welcher Prozedur verzweigt wer¬ 
den soll, wird nur in Einerschritten ab 1 aufwärts getroffen. 
Eine Verzweigung mit Wert = 0 ist nicht möglich. Die Verzwei¬ 
gung erfolgt also nach folgendem Schema: 

Wert >= 1 < 2 ==> Procl aufrufen 

Wert >= 2 < 3 ==> Proc2 aufrufen 

Wert >= 3 < 4 ==> ProcS aufrufen 

usw. Ist Wert größer als die Anzahl der angegebenen Prozeduren 
oder ist Wert gleich null, so wird das Programm ohne Verzwei¬ 
gung in der auf ON GOSUB folgenden Programmzeile fortge¬ 
setzt. 

Bei sämtlichen ON..GOSUB-Varianten des GFA-BASIC sind nur 
Prozeduren als Ziel erlaubt, die keine Parameterliste erwarten. 
Beispiel: 

On Menu(1)-20 Gosub Top,Clos,Full,Leer,Leer,Leer,Siz,Mov 
Procedure Top 

1 Maßnahmen zun Aktualisieren eines Fensters 
Return 

Procedure Clos 

1 Maßnahmen zum Schließen eines Fensters 
Return 

Procedure Full 

1 Maßnahmen zum Dimensionieren eines Fensters auf 
1 größtmögliche Ausmaße. 

Return 

Procedure Siz 

1 Maßnahmen zur beliebigen Dimensionierung eines Fensters 
Return 

Procedure Mov 

1 Maßnahmen zum Bewegen eines Fensters 
Return 

Procedure Leer 

1 Dummy-Prozedur ohne Inhalt, die nur dann aufgerufen 
1 wird, sobald ein ON..GOSUB-Uert auftritt, der ohne 
1 Auswirkung bleiben soll. 

Returnl 
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ON BREAK [COHX] [GOSUB] Break-Funktion behandeln 


ON BREAK GOSUB Prozedur 
ON BREAK 
ON BREAK CONT 

Verzweigt im ersten Fall zu der angegebenen Prozedur, falls 
nach Ausführung des Befehls im Programmlauf die Break- 
Funktion <ControlxShiftxAlternate> verwendet wird. 


Im zweiten Fall wird die normale Break-Funktion aktiviert. 
D.h., das Programm wird nach <ControlxShiftxAlternate> 
beendet. 


Die dritte Syntaxform bewirkt, daß das Programm bis zum 
nächsten ON BREAK oder ON BREAK GOSUB bzw. bis zum 
Programmende nicht mehr durch die Break-Funktion unter¬ 
brochen werden kann. Diese Möglichkeit ist ggf. sehr vorsichtig 
zu handhaben, da bei endlos verzweigenden Strukturen ein Pro¬ 
grammabbruch dann nur noch über speziell vorgesehene Ab¬ 
bruch-Bedingungen oder durch die gefürchtete Reset-Tasten¬ 
kombination möglich ist. Beispiel: 


On break gosub Break ! Break-Funktion umleiten 

Print At(1,1 );"1. Stufe" 

Print At(1,2);"2. Stufe durch «Control><Shift><Alternate>+<Esc>" 
Do ! Endlos-Schleife 

If Ex%=1 ! 2. Stufe schon erreicht? 

If Inkey$=Chr$(13) I <Return> gedrückt? 

Cls 

Print At(1,1);"3. Stufe" 

Print At(1,2);"Abbruch durch <Control><Shift><Alternate>" 
On break ! Break-Funktion wieder einschalten 

Endif 
Endi f 


Loop 

Procedure Break ! Break-Routine (ist nur 

1 ! durch Break-Tasten erreichbar) 

If Inkey$=Chr$(27) ! Vorher <Esc> gedrückt? 

ExX=1 ! Flag für Stufe 3 setzen 

Cls 
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Print At(1,1);"2. Stufe" 

Print At(1,2};"3. Stufe durch <Return>" 

On break cont I Break-Funktion ausschalten 

Endif 
Return 


PROCEDURE { PRO >...RETURN { RET > Prozedur-Titel 


Oder: 


SUB { SU }...END$UB { ENDSU } 

Oder: 


PROCEDURE { PRO }...ENDPROC { ENDP } 


PROCEDURE Name [(Variablenliste)] 

... auszuführende Programmteile 
RETURN 

Mit PROCEDURE werden in GFA-BASIC Unterprogramme 
bezeichnet. Diese können beliebigen Programmtext enthalten und 
werden durch die Rücksprunganweisung RETURN abgeschlos¬ 
sen. Mit RETURN kehrt das Programm zu der aufrufenden Pro¬ 
grammzeile zurück und fährt dort mit der darauffolgenden Pro¬ 
grammzeile fort. 

Es ist nicht sehr rationell, bestimmte Programmabläufe, die in 
immer derselben Form mehrfach im Hauptprogramm erforder¬ 
lich werden, immer wieder neu zu formulieren. Dieses Verfah- 
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ren ist also immer dann vorteilhaft, wenn allgemein gehaltene 
Unterprogramme von mehreren Programmstellen aus aufgerufen 
werden sollen. 

Es kann optional eine Variablenliste lokaler Variablen (siehe 
LOCAL) angegeben werden, die ggf. die durch GOSUB über¬ 
gebenen Daten aufnehmen. Die Variablen dieser Liste können 
unterschiedlichen Typs sein, wobei darauf zu achten ist, daß die 
Variablentypen den übergebenen Parametertypen entsprechen 
(bzw. umgekehrt). 

Der Name der Prozedur kann aus beliebigen Zeichen (A - Z) 
und/oder Ziffern (0 - 9), dem Tiefstrich (_) und/oder dem 
Punkt gebildet werden. Anders als bei Variablennamen kann 
auch hier das erste Zeichen aus einer Ziffer bestehen. 


Es ist auch möglich, Prozeduren sich selbst aufrufen zu lassen 
(Rekursion) bzw. aus einer Prozedur heraus beliebig weitere 
Prozeduren aufzurufen. 

Struktur: 

Programm 

Gosub Procl->—. 

.-weiteres Programm-. 


Programmende 
Procedure Procl 

| 4 | --- 

|..Unterprogramm 

'--Gosub Proc2->-. 

.- > - ... 

|..evtl. weiteres Unterprogramm 
'--+—<-Return |2| 

Procedure Proc2 

|3| -<— 

|..Unterprogramm von 'Procl' 

'--evtl, weitere Sprünge->-. 

'-<-Return-<-' 


Es ist auch möglich, durch VAR innerhalb der Variablenliste 
Variablen zu definieren, an die dann durch GOSUB eine globale 
Variable direkt übergeben werden kann (siehe VAR). Außerdem 
kann statt PROCEDURE auch SUB und statt RETURN auch 
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ENDPROC oder ENDSUB verwendet werden. Diese Ausdrücke 
werden vom Interpreter in PROCEDURE bzw. RETURN üm- 
gewandelt. 

Beispiele zu diesen beiden Struktur-Befehlen finden Sie in 
diesem Buch in Hülle und Fülle. Außerdem finden Sie weitere 
Informationen darüber unter FUNCTION, LOCAL und GOSUB. 


VÄR 


Direkte Variablen-Übergabe 


PROCEDURE Name([Var1,...] VAR Varnamel [,Varname2$,...]) 
FUNCTION Name([Var1,...j VAR Varnamel [,Varname2$,...]) 

Als Alternative zu den indirekten Pointer-Variablen können in¬ 
nerhalb der Kopfzeilen von PROCEDUREs und FUNCTIONs in 
der Liste der lokalen Aufnahme-Variablen mittels VAR auch 
Variablen direkt an die Prozedur/Funktion übergeben werden. 
Die hinter VAR angegebenen Variablennamen stehen dann in¬ 
nerhalb der Prozedur/Funktion stellvertretend für die durch 
GOSUB oder FN übergebenen Variablen. Dabei ist zu beachten, 
daß die VAR-Variablen an letzter Stelle der Variablenliste pla¬ 
ziert werden. Es werden dann alle Variablennamen, die hinter 
VAR stehen, als VAR-Variablen interpretiert. 

Die VAR-Variable ist tatsächlich mit der globalen Variable 
identisch, sie trägt nur für die Dauer der Prozedur/Funktion den 
im Kopf angegebenen Namen. Jede Veränderung der 
Aufnahmevariablen innerhalb der Prozedur wirkt sich also direkt 
auf die übergebene globale Variable aus. 

Inhalte globaler Variablen, die denselben Namen wie die Auf¬ 
nahmevariable tragen, bleiben erhalten. Der prozedur- 
/funktionsinterne Name hat also bis zum Rücksprung in das 
Hauptprogramm lokalen Charakter. Die gleichnamige globale 
Variable ist jedoch innerhalb der Routine nicht verfügbar. Nach 
Rücksprung zum Hauptprogramm (bzw. zur nächsthöheren 
Ebene) wird dann der globale Inhalt wieder restauriert. 
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Es ist dabei zu beachten, daß die beiden korrespondierenden 
Variablennamen dem gleichen Typ angehören. Ist das nicht der 
Fall oder wird eine Konstante oder ein Ausdruck als Parameter 
übergeben, erscheint die Fehlermeldung "Falsche VAR-Type". 


6.6 Assemler-/C-/PRG-Programmaufrufe 


C: () Maschinenprogramm (C-kompiliert) aufrufen 


Var=C:Adressvar ([Parameterliste]) 

Es ist in "Adressvar" die Adresse einer Maschinenroutine und - 
optional - eine Liste numerischer Parameter in Klammern zu 
übergeben. Die Übergabe erfolgt nach üblichen C-Konventionen 
auf dem Stack. Sollen 32-Bit-Parameter übergeben werden, ist 
dem jeweiligen Parameter das Kürzel ’L:’ voranzustellen. Sonst 
gilt das Word-Format (16 Bit). Beispiel: 

VOID C:(L:Para1X,Para2X,U:Para3X,L:Para4X) 


erzeugt folgenden Stack: 


run: 
move.1 

(sp),return 

; = Rücksprungadresse 

move.1 

4(sp),para1 

; = 1. Parameter ParalX (Long) 

move 

8(sp),para2 

; = 2. Parameter Para2X (Word) 

move 

10(sp),para3 

; = 3. Parameter Para3X (Word) 

... etc. 



... Maschinenprogramm 


rts 


; Nur RTS verwenden !! 


Sind keine Parameter zu übergeben, ist eine Leerklammer () zu 
verwenden. Nach Rückkehr kann der Inhalt von DO (wie in C) 
entweder direkt ausgegeben (PRINT C:Var()), einer Variablen 
übergeben (A%=C:Var()) oder in Bedingungsabfragen eingebun¬ 
den werden (IF C:Var()). 
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CALL { CAL } Maschinenprogramm (assembliert) aufrufen 


CALL Adressvar ([Parameterliste]) 

"Adressvar" enthält die Adresse der aufzurufenden Maschinen¬ 
routine. "Parameterliste" enthält, durch Kommata getrennt, die 
evtl, zu übergebenden Parameter. Diese können beliebigen Typs 
sein, werden jedoch als 32-Bit-Werte interpretiert. Das 
Maschinenprogramm empfängt auf dem Stack der Reihe nach 
die Rücksprungadresse, einen 16-Bit-Wert, der die Para¬ 
meteranzahl enthält, sowie eine 32-Bit-Adresse, ab der die Pa¬ 
rameter im 32-Bit-Format aufeinanderfolgend vom BASIC ab¬ 
gelegt wurden. String-Parameter werden hier vom BASIC mit 
deren Anfangsadresse übergeben. Beispiel: 

CALL ProgX(17,"Para",AX,BS,*VarX) 


erzeugt folgenden Stack: 


run: 

move.1 

(sp),return 

- 

Rücksprungadresse 

move 

4(sp),anzahl 

= 

5 Parameter 

move.1 

6(sp),adress 

= 

Zeiger auf Parameterblock 

move.1 

adress.al 

= 

Zeiger nach al 

move 

(a1),para1 

= 

Parameter 1 in paral 

move 

4(a1),para2 

= 

Parameter 2 in para2 

... etc. 

... Maschinenprogramm 



rts 


Nur RTS verwenden! 


EXEC { EXE } CLI-Kommando übergeben 


EXEC Kommandos,In,Out 

Dieser Befehl erlaubt es, an das sog. CLI (Command Line Inter¬ 
face) ein Kommando zu übergeben, um dadurch (zum Beispiel) 
ein beliebiges, ablauffähiges (Nicht-GFA-) Programm zu starten. 








Programmstruktur 


185 


Das CLI-Kommando wird dazu in Kommandos übergeben. In 
und Out stehen für die Kanalnummern (auch ’Filehandle’ ge¬ 
nannt) der gewünschten Ein- und Ausgabekanäle. Im Normalfall 
geben Sie hier jeweils -1 an. Dadurch erfolgt die Ein-/Ausgabe 
von bzw. in ein CLI-Fenster. (Falls Sie GFA-BASIC vom CLI 
aus gestartet haben, wird das dabei aktive Fenster genommen. 
Wurde GFA-BASIC von der Workbench aus aufgerufen, so wird 
ein neues CLI-Fenster geöffnet.) Um die Ein- oder Ausgaben 
auf ein anderes Gerät bzw. eine andere Datei umzuleiten, 
müßten Sie im CLI oder in GFA-BASIC mit der DOS-Funktion 
Open ein entsprechendes Filehandle erzeugen (siehe auch Er¬ 
klärungen zur DOS-Bibliothek in Kapitel 5) und dieses dann bei 
In bzw. Out angeben. In den allermeisten Fällen wird das aber 
nicht erforderlich sein, da die aufgerufenen Programme in der 
Regel selbst die Einstellung der Ein-/Ausgabekanäle über¬ 
nehmen. 

Theoretisch läßt sich mit EXEC jedes beliebige CLI-Kommando 
ausführen. In der Praxis am interessantesten dürfte aber der 
Aufruf von anderen (Anwenderprogrammen sein. Dabei gibt 
es grundsätzlich zwei Möglichkeiten (die natürlich auch beim 
Aufruf einfacher CLI-Kommandos wie etwa ’List’ bestehen): 

- GFA-BASIC wartet, bis das Programm beendet wird. 

- Das Programm läuft parallel zu GFA-BASIC. Mit GFA- 
BASIC selbst kann normal weitergearbeitet werden. 

Im ersten Fall enthält Kommandos nur den Namen des aufzu¬ 
rufenden Programms (ggf. mit Pfadangabe). Beispiel: 

EXEC "df0:Utilities/Calculator",-1,-1 

Startet das (auf der Workbench-Diskette befindliche) Programm 
’Calculator’. GFA-BASIC wartet nun, bis Sie mit ihren Berech¬ 
nungen fertig sind, d.h. das Fenster von ’Calculator’ schließen. 
Erst danach können Sie mit GFA-BASIC Weiterarbeiten. 

Im zweiten Fall müssen Sie dem Namen des auszuführenden 
Programms ein ’Run’ voranstellen. Beispiel: 
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EXEC "Run df0:clock",-1,-1 

Startet die (ebenfalls auf der Workbench-Diskette befindliche) 
Clock. Das Programm läuft nun parallel zu GFA-BASIC. 

Die Anzahl der gleichzeitig ablaufenden Programme ist theore¬ 
tisch nur durch den verfügbaren Speicherplatz begrenzt. Bitte 
beachten Sie aber, daß jedes zusätzliche Programm auch zusätz¬ 
liche Rechenzeit kostet. Dadurch kann sich die Ablaufgeschwin- 
digkeit der einzelnen Programme zum Teil beträchtlich verlang¬ 
samen. 


MONITOR { M } Maschinen-Programm aufrufen 


MONITOR [(Parameter)] 

Parameter enthält optional einen Übergabewert, der in DO an die 
aufgerufene Routine geliefert wird. 

Der Befehl MONITOR erzeugt ganz banal eine Illegal- 
Instruction-Exception. Dies ist ein Systemfehler, der immer dann 
auftritt, wenn in einem Maschinenprogramm versucht wird, 
einen Befehl auszuführen, den der Amiga nicht kennt. Das pas¬ 
siert meist dann, wenn der PC (ProgramCounter = CPU-Zeiger 
auf die nächste auszuführende Adresse) aufgrund eines Pro¬ 
grammfehlers "in die Wüste" zeigt. 

Die Idee hinter MONITOR ist nun, daß erstens in GFA-BASIC 
eine Illegal-Instruction-Exception unter normalen Umständen 
unmöglich ist, und zweitens, daß verschiedene Programme diesen 
Fehler abfangen, um anschließend in einen Debugger, 
Disassembler, Maschinen-Monitor oder ähnliches zu springen. 
Ein solches Programm läßt sich also am leichtesten mit 
MONITOR aufrufen. 

Aber Vorsicht: Bei Auslösung einer Illegal-Instruction-Exception 
springt der Rechner über einen sog. Vektor (Speicheradresse 16) 
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an die Adresse des MONITOR-Programms. Im Normalfall zeigt 
dieser Vektor auf die Betriebssystemroutine zur Erzeugung der 
Guru-Meditations. Bevor Sie MONITOR das erste Mal anwen¬ 
den, müssen Sie also zunächst einmal diesen Vektor (am besten 
durch das Programm selbst) auf die Adresse des MONITOR- 
Programms 'verbiegen’ lassen! Ansonsten bekommen Sie einen 
Systemabsturz. 


RCALL { RC } Masch.-Programmaufruf m. Registerzugriff 


RCALL Adresse,Feld%0 

Ruft ein ab "Adresse" liegendes Maschinenprogramm auf. Dabei 
kann der Name eines 32-Bit-Integer-Arrays (mind. 16 Elemente) 
übergeben werden, in dem vor Aufruf beliebige Longwords ab¬ 
gelegt werden können. Die Inhalte der ersten 15 Elemente dieses 
Feldes (OPTION BASE beachten) werden vor Ausführung der 
Routine folgendermaßen in die CPU-Register kopiert (bei 
OPTION BASE 0): 

Feld%(0) bis FeldX(7) --> dO bis d7 
Feld%(8) bis FeldX(14) --> aO bis a6 

Nach Abschluß der Routine (mit RTS) werden die Register¬ 
inhalte in der gleichen Reihenfolge wieder in das Feld zurück¬ 
geschrieben. Zusätzlich erhält man in Feld%(15) (bei OPTION 
BASE 0, sonst in Feld%(16)) den aktuellen Userstack-Pointer (SP 
= a7 - nur Rückgabe!). 
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RESTORE { RES } DATA-Zeiger setzen 


RESTORE [Labelname] 

RESTORE ohne Angabe einer Marke bewirkt, daß der DATA- 
Zeiger grundsätzlich auf den ersten aller im Programm enthal¬ 
tenen DATA-Einträge gerichtet wird. Durch RESTORE Label¬ 
name kann der DATA-Zeiger auf das erste DATA gerichtet 
werden, das auf das angegebene Label folgt. 

Ab dort werden dann die vorhandenen DATAs eingelesen, bis 
ein neuer RESTORE-Befehl eingesetzt wird oder das letzte aller 
DATAs gelesen wurde. Weitere Informationen hierzu finden Sie 
unter DATA. 
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7. Textoperationen 

7.1 String-Manipulationen 


MID$0 


Teil-String zuweisen 


MID$(Ziel$,Start [,Anz])=Text" 

ZielS gibt eine String-Variable an, in die "Text" ab Start einge¬ 
setzt werden soll. Anz gibt optional die Anzahl der Zeichen von 
Text an, die maximal in ZielS eingesetzt werden sollen. Die ur¬ 
sprüngliche Länge von ZielS bleibt unverändert. Es werden max. 
so viele Zeichen von Text eingefügt, wie ab Start in ZielS hin¬ 
einpassen. 

Beispiele hierzu finden Sie unter FORM INPUT und 
FUNCTION. 


LS ET { LS } Zeichen (kette) linksbündig einsetzen 


LS ET Ziel$ = "Text" 

Text kann eine beliebige Zeichenkette oder String-Variable sein, 
deren Inhalt linksbündig in ZielS eingefügt wird. Dabei bleibt 
die ursprüngliche Länge von ZielS unverändert. Ist ZielS kürzer 
als Text, wird Text bei der Länge von ZielS abgeschnitten. Ist 
Ziel dagegen länger als Text, werden die restlichen Stellen von 
ZielS mit Leerzeichen aufgefüllt. 

Ein Beispiel zu LSET finden Sie in Kap. 5.5.1 "Funktionsweise 
einer Random-Access-Datei". 
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RS ET { RS } Zeichenhefte) rechtsbündig einsetzen 


RSET Ziel$="Text" 

RSET ist grundsätzlich mit LSET vergleichbar. Der einzige 
Unterschied besteht darin, daß "Text" am Ende des Ziel-Strings 
eingesetzt wird. Beide Befehle finden überwiegend in Random- 
Acces-Dateien Verwendung, wo es darum geht, daß trotz String- 
Veränderung die Längen der Eintragszeilen unverändert erhalten 
bleiben. 


7.2 String-Analyse 


INSTR0 Zeichen(kette) in einem String suchen 


Var=INSTR(Ziels,Such$ [,Start]) 

Var=INSTR([Start,] ZielS.SuchS) 

Liefert einen Wert, der die absolute Position von Such$ in Ziel$ 
angibt. Ist Such$ in Ziel$ nicht enthalten, wird der Wert 0 
zurückgegeben. Sind beide Strings leer, erhält man eine 1. Bei 
Verwendung der Option Start wird ab der damit angegebenen 
Zeichenposition gesucht. Bei der Angabe des Such-Strings ist 
darauf zu achten, daß hier zwischen Groß- und Kleinschreibung 
unterschieden wird. Beispiel: 


ZielS="Kaum zu glauben. Ich trau 1 meinen Augen nicht." 
Such$=* l au" 

aAstring(0,Ziel$,SuchS,IbkJ) 

For IX=1 To Len(Ibk$) Step 2 
Print Cvi(Mid$(Ibkt,IX,2)) 

Next IX 

Procedure Astring(S.posX,Z.str$,S.str$,Var BkS) 

I 

1 Erweiterte INSTR-Routine, die alle (!) Positionen 
1 eines Strings innerhalb eines Ziel-Strings ab einer 
1 evtl, angegebenen Startposition ermittelt und die 
1 Positionsliste als MKIS-Daten-String zurückgibt. 
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S.posX = String-Position, ab welcher gesucht werden soll. 
0 wird wie bei INSTR als 1 interpretiert. 

Zu untersuchender Ziel-String 
Zu suchender String 


Z.strS 

S.strS 

BkS 


= VAR-Variable 


ist nach Rückkehr 
entweder leer (String 
nicht gefunden) oder 
enthält der Reihe nach 
die gefundenen Positionen 


Local X$,PosX 
Repeat 

PosX=Instr(S.posX,Z.strS,S.strS) 
If PosX>0 
XS=XS+MkiS(PosX) 

S.posX=PosX+1 

Endif 

Until PosX=0 
Bk$=XS 
Return 


! Such-Schleife >- 

! Position feststellen 
I String enthalten? 

I Position eintragen 
I Startposition erhöhen 
I 

I Kein String mehr? <— 


LEFT$0 Linksbündigen Teil-String ermitteln 


Var$ = LEFT$(Ziel$ [,Anz]) 

Ohne die Option Anz wird das erste Zeichen des Strings ZielS 
geliefert. Bei Verwendung der Option Anz werden ab String- 
Anfang Anz Zeichen von ZielS geliefert. Ist Anz größer als die 
Länge von ZielS, so wird Ziel$ komplett als Ergebnis zurückge¬ 
geben. Ist Ziel$ ohne Inhalt wird ein Null-String geliefert. 

Beispiele zu LEFT$() finden Sie unter PRINT und unter DATA. 
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String-Länge ermitteln 


LENQ 


Var=LEN(Var$) 

Liefert die Länge des angegebenen Strings Var$. Beispiele zu 
LEN() finden Sie unter FORM INPUT, INKEY$(), LINE 
INPUT, INSTR und an vielen Stellen im Buch verteilt. 


MID$0 


Beliebigen Teil-String ermitteln 


Var$ = MID$(Ziel$,Start [,Anz]) 

Es wird ein Teil-String von Ziel$ geliefert. Start gibt die Posi¬ 
tion in Ziel$ an, ab der gelesen werden soll. Wird die Option 
Anz verwendet, werden ab Start so viel Zeichen geliefert, wie in 
Anz angegeben sind. Wird Anz nicht verwendet oder ist der in 
Anz angegebene Wert größer als die Menge der ab Start 
verbleibenden Zeichen von ZielS, so wird der gesamte Rest- 
String ab Start zurückgegeben. Ist ZielS ohne Inhalt, wird ein 
Null-String ("") geliefert. 

Anwendungsbeispiele zu MID$() finden Sie unter anderem bei 
FORM INPUT und RIGHTSQ. 


PREDO Nächstkleineres ASCH-Zeichen ermitteln 


Var$ = PRED(Expr$) 

Liefert das nächstkleinere ASCII-Zeichen des ersten Zeichens 
von ExprS. Ist als Abkürzung für CHR$(ASC(Expr$)-l) einsetz- 
bar. Beispiel: 
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For IX=65 To 76 

Print "ASCII des Zeichens ";ChrS(IX); 
Print " minus 1 = ";Asc(Pred(ChrS(IX))); 
Print " = Zeichen ";Pred(Chr$(IX)) 

Next IX 


RIGHT${) Recht »bündigen Teil-String ermitteln 


Var$ = RIGHT$(Ziel$ [,Anz]) 


Ohne die Option Anz wird das letzte Zeichen des Strings Ziel$ 
geliefert. Bei Verwendung der Option Anz werden vom String- 
Ende Anz Zeichen von ZielS geliefert. Ist Anz größer als die 
Länge von ZielS, so wird ZielS komplett als Ergebnis zurückge¬ 
geben. Ist ZielS ohne Inhalt wird ein Null-String zurückge¬ 
geben. Beispiel: 


X$="Dies ist ein DEMO-Strins 
XS=X$+"Trennfunktion CUT. In 
X$=XS+"wird eine Liste von M 
X$=X$+", die der Reihe nach 
X$=XS+"extrahierten Strings 
aCutCXS,», -:.)",20,*A$) 

For IX=1 To Len(A$) Step 4 

I 

SposX=Cvi(Mid$(AS,IX,2)) 
SlenX=Cvi(Mid$(A$,IX+2,2)) 
Print Mid$(X$,SposX,SlenX) 
Next IX 


zur Vorführung der String-" 
i Rückgabe-String (hier: AS)" 
KIS-Uertepaaren zurückgegeben" 
die Positionen und Länge aller " 
enthält." 

! Aufruf 

I MKIJ-String in 4er-Steps 
I durchgehen 

! Teil-String-Position lesen 
! Teil-Stringlänge lesen 
I Teil-String ausgeben 


Procedure Cut(C.str$,C.sgr>S,C.brtX,C.vecX) 

1 Teilt einen vorgegebenen String in Teile mit einer 
' vorgegebenen max. Länge, wobei eine Liste von 
1 Trennzeichen angegeben werden kann, die dann Priorität 
1 vor der Länge haben. Der Ausgangs-String bleibt unverändert. 


C.strS 

C.sgni 


C.brtX 

C.vecX 


Zu teilender Vorgabe-String 
Beliebige Liste von Trennzeichen. Die 
Teil-Strings enden jeweils mit dem ersten 
Zeichen hinter dem gefundenen Trennzeichen. 

Ist C.sgnS leer (""), gilt für die 
Trennung ausschließlich C.brtX. 

Max. neue Zeilenbreite 

Pointer auf eine Rückgabe-String-Variable, die 
nach Abschluß eine Liste von MKIS-Uertepaaren 
enthält, die der Reihe nach Position und Länge 
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1 der einzelnen Teil-Strings angeben. 

I 

Local C.dum$,Cd.vec$,C.posX,C.a$,C.jX 

C.posX=1 ! Positions-Puffer +1 

Do 

C.aS=Left$(C.str$,Min(C.brtX,Len(C.str$))) ! Teil-String 
• ! auf Länge trimmen 

If Len(C.sgn$)>0 ! Trennzeichen vorhanden? 

For C.jX=Len(C.a$) Dounto 1 ! Alle Zeichen durchgehen 

Exit if Instr(C.sgn$,Mid$(C.aS,C.jX,1)) ! Abbruch, 

1 ! wenn Trennzeichen gefunden 

Next C.jX ! Nächstes Zeichen 

Endif 

If C.jX=0 ! Kein Trennzeichen? 

C.jX=C.brtX ! Längenvorgabe hat Priorität 

Endi f 

C.dunS=LeftS(C.a$,Min(C.brtX,C.jX)) I Teil-String "cutten" 
C.str$=Right$(C.str$,Len(C.str$)-Min((C.brtX),Len(C.dumS))) 
' ! Ausgangs-String kürzen 

Cd.vecS=Cd.vec$+Mki$(C.posX)+M kiS(L en(C.dum*)) 

1 ! MKIS-String bilden 

Add C.posX,Len(C.dumS) I Neue Startposition 

Exit if Len(C.str$)<C.brtX ! Exit, wenn Rest < max. Breite 
Loop 

Cd.vec$=Cd.vecS+Mki$(C.posX)+Mki$(Len(C.str$)) ! MKIS-Rest 
*C.vecX=Cd.vecS ! MKIS-String zurückgeben 

Return 


RINSTRO Zeichen (kette) in einem String rückwärts suchen 


Var=RINSTR(Ziel$,Such$ [.Start]) 

Var=RINSTR([Start,] Ziel$,Such$) 

Liefert einen Wert, der die erste gefundene Position von ’SuchS’ 
in Ziel$ angibt. Bei der Durchsuchung des Ziel-Strings wird im 
Gegensatz zu INSTR am String-Ende begonnen. Weiteres siehe 
INSTR. 
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SUCCQ Nächstgrößeres ASCII-Zeichen ermitteln 


Var$ = SUCC(Expr$) 

Liefert das nächstgrößere ASCII-Zeichen des ersten Zeichens 
von Expr$. Ist als Abkürzung für CHR$(ASC(Expr$)+l) einsetz- 
bar. Beispiel: 

For I%=65 To 78 

Print "ASCII des Zeichens ";Chr$(IX); 

Print " plus 1 = ";Asc(Succ(ChrS(IX))); 

Print » = Zeichen ";Succ(Chr$(IX)) 

Next IX 


7.3 String-Formatierung 


Leerzeichen-String bilden 


SPACE$0 


Var$ = SP ACE$(Anz) 

Es wird ein String aus Anz Leerzeichen gebildet und zurückge¬ 
geben. 


STRING$Q Mehrfach-Zeichenkette bilden 


Var$ = STRING$(Anz I "Text") 

Var$ = STRINGS (Anz, Ascii) 

Es wird ein String gebildet, der sich daraus ergibt, daß Text so 
oft verkettet wird, wie in Anz angegeben. Text kann auch als 
Variable oder String-Konstrukt angegeben werden. Soll ein 
einzelnes Zeichen multipliziert werden, kann statt Text auch der 
ASCII-Wert des Zeichens verwendet werden. Die entstehende 
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Zeichenkette darf nicht mehr als 32767 Zeichen enthalten 
(maximale Größe einer String-Variablen). 

Beispiele finden Sie unter anderem unter PRINT. 


TRIM$Ö 


Space-Zeichen eliminieren 


Var$=TRIM$(Ziel$) 

Eliminiert alle Spaces (Leerzeichen), die am String-Anfang oder 
am String-Ende von Ziel$ stehen, und liefert den verbleibenden 
String-Teil. Besteht der übergebene String ZielS nur aus Leer¬ 
zeichen oder ist er ohne Inhalt, erhält man einen Leer-String ("") 
zurück. Beispiel: 

For IX=1 To 4 
Read AS 

Print "Vorher : ->";AS;"<-", 

Print "Nachher: ->";TrimS(A$);"<-" 

Next IX 

Data String 1 , String 2,String 3,String 4 , 


UPPERSÖ Buchstaben um Wandlung klein = > groß 


Var$ = UPPER$(Ziel$) 

Trifft UPPERS beim Lesen von ZielS auf einen kleingeschriebe¬ 
nen Buchstaben (ASCII-Werte 97 bis 129), so wird dieser in den 
entsprechenden Großbuchstaben (ASCII-Werte 65 bis 90) umge¬ 
wandelt. Kleingeschriebene Umlaute (ä, ö, ü) werden ebenfalls 
in Uppercase (Ä, ö, Ü) gewandelt. Alle anderen Zeichen bleiben 
unverändert. 
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8. Arithmetik-Befehle 

8.1 Operatoren 

Arithmetische Operatoren: 

A Potenzieren 

Negatives Vorzeichen 

* / Multiplikation und Division 

DIV Ganzzahldivision (Entfernen von Dezimalstellen) 

MOD Modulo-Berechnung (Rest der Ganzzahldivision) 

+ - Addition und Subtraktion 

Vergleichsoperatoren: 

= ungleich <> oder >< gleich 

> größer als >= oder => größer oder gleich 

< kleiner als <= oder =< kleiner oder gleich 

== ungefähr gleich (28 Bit-Vergleich) 

Logische Operatoren: 

AND Konjunktion: Das Ergebnis von AND ist wahr, 

wenn beide Argumente wahr sind. 

OR Disjunktion: Das Ergebnis von OR ist wahr, wenn 

eines der Argumente wahr ist. 

XOR Exclusives Oder: Das Ergebnis von XOR ist 

falsch, wenn die Argumente beide wahr oder 
beide falsch sind. 

NOT Negation: Vertauscht Wahrheitswerte ins Gegen¬ 

teil. 

IMP Implikation: Die Folgerung IMP ist nur dann 

falsch, wenn aus etwas Wahrem etwas Falsches 
folgt. 

EQV Äquivalenz: Umkehrung zu XOR. Das Ergebnis 

ist falsch, wenn sich die beiden Argumente 
unterscheiden. 
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Prioritäten: 


( ) 

A 

* / 

DIV MOD 


Klammern (höchste Priorität) 

Potenzierung 
Negatives Vorzeichen 
Multiplikation und Division 
Ganzzahldivision und Modulo-Berechnung 
Addition und Subtraktion 


= > < == 

<> >= <= Vergleichsoperatoren 

NOT AND OR, 

XOR IMP EQV Logische Operatoren (niedrigste Priorität) 


8.2 Mathematische Operationen 


Additionsbefehl 


ADD { AD } 


ADD Var,Wert 

Addiert Wert zum Inhalt der numerischen Variablen Var und 
legt anschließend das Ergebnis in Var ab. 

Wird in Var eine Integer-Variable angegeben, so wird ein evtl, 
in Wert angegebener Realwert als Integerwert behandelt. 


DEC Dekrementierung 

DEC Var 

Vermindert den Wert der numerischen Variablen Var um den 
Wert 1. 
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DIV Divisionsbefehl { Dl} 


DIV Var,Wert 

Dividiert den Inhalt der numerischen Variablen Var durch Wert 
und legt anschließend das Ergebnis in Var ab. Beachten Sie bitte 
die Anmerkung zum ADD-Befehl. 


INC {IN } 


Inkrementierung 


INC Var 

Erhöht den Wert der numerischen Variable Var um den Wert 1. 


MUL { MU } 


Multiplikationsbefehl 


MUL Var,Wert 

Multipliziert den Inhalt der numerischen Variablen Var mit Wert 
und legt anschließend das Ergebnis in Var ab. Beachten Sie bitte 
die Anmerkung zum ADD-Befehl. 


SUB { SU } 


Subtraktionsbefehl { $U } 


SUB Var,Wert 

Subtrahiert Wert vom Inhalt der numerischen Variablen Var und 
legt anschließend das Ergebnis in Var ab. Beachten Sie bitte die 
Anmerkung zum ADD-Befehl. 
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Integer-Additionsfunktion 


ADDQ 


Var=ADD (Wert 1, Wert2) 

Addiert Wertl zu Wert2 und liefert dann das entsprechende 
Integer-Ergebnis. 

Anmerkung: Im Gegensatz zu den ADD-, SUB-, MUL-, DIV- 
Befehlen können diese Funktionen - wie jede andere Funktion 
auch - in die Ausgabe, in Zuweisungen, Ausdrücke, Bedin¬ 
gungsabfragen etc. eingebunden werden. Sie stehen stellvertre¬ 
tend für das Ergebnis, das sie liefern sollen. Außerdem können 
hiermit generell nur integrierte Werte berechnet werden. Von 
ggf. aus der Operation entstehenden Realwerten wird nur der 
Vorkomma-Anteil geliefert. Eine Rundung findet nicht statt. 

Die Werte können als Konstante, Variable, Ausdruck oder 
Funktion angegeben werden, sie werden durch die Operation 
nicht verändert. Gibt man die Werte als Realwerte an, werden 
sie vor Ausführung der Operation auf ihren Integeranteil redu¬ 
ziert. Beispiel: 

Print Mod(Add(Div(100,33),Mul(345,Sub(12,5.6))),38) 
entspricht: 

Print Int(100/33)+Int(345*Int(12-Int(5.6))) Mod 38 


DIVO integer-Diviaionsfunktion 


Var=DIV(Wert1,Wert2) 

Dividiert Wertl durch Wert2 und liefert das entsprechende 
Integer-Ergebnis. Beachten Sie bitte die Anmerkung zur ADD()- 
Funktion. 
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MODO integer-Moduio-Funktiort 


Var=MOD(Wert1,Wert2) 

Berechnet den ganzzahligen Rest der Integer-Divison Wertl 
durch Wert2 (Modulo-Berechnung) und liefert das entsprechende 
Integer-Ergebnis. Beachten Sie bitte die Anmerkung zur ADD()- 
Funktion. 


MULO 


Integer-Multiplikationsfunktion 


Var=MUL(Wert1,Wert2) 

Multipliziert Wertl mit Wert2 und liefert das entsprechende 
Integer-Ergebnis. Beachten Sie bitte die Anmerkung zur ADD()- 
Funktion. 


SUBQ 


Integer-Subtraktionsfunktion 


Var=SUB(Wert1,Wert2) 

Subtrahiert Wert2 von Wertl und liefert das entsprechende 
Integer-Ergebnis. Beachten Sie bitte die Anmerkung zur ADD()- 
Funktion. 
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8.3 Numerische Funktionen 


Betrags-Funktion 


ABSQ 


Var=ABS(Arg) 

ABS gibt das Argument Arg vorzeichenlos als positiven (absolu¬ 
ten) Wert zurück. Dieser Wert ist immer gleich oder größer null. 


EVEN () Zahl auf "gerade" testen 

Var=EVEN (Arg) 

Liefert -1, wenn Arg gerade ist. Sonst wird 0 geliefert. 


EXPO 


Exponential-Funktion 


Var = EXP (Arg) 

Berechnet das Ergebnis des Exponenten Arg zur Basis e 
(Eulersche Zahl). Gleichbedeutend mit: 2.718281828462 A Arg. 
Arg muß auf jeden Fall größer null sein, da sonst eine Fehler¬ 
meldung produziert wird. EXP ist die Umkehrfunktion zu LOG. 
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Ganzzahl-Funktion 


F1XQ 


Var = FIX(Arg) 

Übergibt den ganzzahligen Anteil (Integer) der Real-Zahl Arg. 
Die Funktion rundet Zahlen weder auf noch ab, sondern ent¬ 
fernt nur die Dezimalstellen. Im Minusbereich wird dadurch der 
Minuswert kleiner. FIX(-12.33) ergibt -12. FIX(33.17) ergibt 33. 
FIX ist identisch mit TRUNC. 


FRACO 


Dezimalstellen-Funktion 


Var=FRAC(Arg) 

Liefert den Dezimalanteil (Nachkommastellen) von Arg, falls 
Arg eine reelle Zahl ist, bzw. den Wert 0, falls Arg integer ist. 


INTQ Ganzzahl-Funktion 


Var=INT(Arg) 

Wandelt die Zahl Arg in eine Integer-Zahl. Ist Arg ein Realwert, 
so wird die nächstkleinere Ganzzahl zurückgegeben. Im Gegen¬ 
satz zu FIX() und TRUNCO wird dadurch im Minusbereich der 
Minuswert größer. 


INT(-12.33) ergibt -13 


INT<33.17) ergibt 33. 
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LOGO 


Logarithmus-Funktion 


Var=LOG [10] (Arg) 

LOG() gibt den natürlichen (Neperschen) Logarithmus des in 
Klammern angegebenen numerischen Ausdrucks Arg zur Basis e 
zurück. 

Basis e => 2.718281828 => Eulersche Zahl 

Das Ergebnis von 2.718281828462 A LOG(Arg) ergibt Arg. 
LOG10() liefert dagegen den dekadischen (Briggsschen) Lo¬ 
garithmus des in Klammern übergebenen Arguments Arg zur 
Basis 10. 

Das Ergebnis von 10 A LOG10(Arg) ergibt Arg. Arg muß auf 
jeden Fall größer null sein, da sonst eine Fehlermeldung produ¬ 
ziert wird. LOGO ist die Umkehrfunktion zu EXP(). 


ODDQ Zahl auf “ungerade" testen 

Var=ODD(Arg) 

Liefert -1, wenn Arg ungerade ist. Sonst wird 0 geliefert. 


PREDQ 


Nächst kleinere Ganzzahl ermitteln 


Var=PRED(Arg) 

Liefert die nächstkleinere Integerzahl vor Arg. Bei Arg als 
Realzahl werden vor Ausführung der Operation die Nachkom¬ 
mastellen integriert (siehe INT). 
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ROUNDO 

Rundungsfunktion 

Var=ROUND(Arg [.Stelle]) 


Rundet Arg mathematisch exakt auf eine ganze Zahl. Wird die 
Option Stelle verwendet, wird auf die angegebene Nachkomma¬ 
stelle gerundet. Ist Stelle negativ, wird auf die entsprechende 
Stelle vor dem Komma gerundet. 

SGNO 

Vorzeichen ermitteln 

Var=SGN(Arg) 


Liefert das Vorzeichen (engl.: SiGN) von Arg. 

1 wenn Arg > 0/-1 wenn Arg < 0/0 wenn Arg 

= 0 

SQRÖ 

Wurzel-Funktion 


Var=SQR(Arg) 

Es wird die 2. Wurzel (Quadratwurzel engl.: SQuare Radical) von 
Arg geliefert. Wird eine höhere Wurzel gebraucht, so ist diese 
über den Umweg der Potenzierung mit gebrochenem Exponenten 
zu berechnen: 

3. Wurzel = Arg‘(1/3) 

4. Wurzel = Arg'(1/4) 


etc. 

Arg muß auf jeden Fall gleich oder größer null sein, da sonst 
eine Fehlermeldung produziert wird. 
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SUCCQ Nlchstgrößere Ganzzahl ermittfein 

Var=SUCC(Arg) 

Liefert die nächstgrößere Integerzahl nach Arg. Bei Arg als 
Realzahl werden die Nachkommastellen integriert (siehe INT). 


TRÜNCO 

Ganzzahl-Funktion 

Var=TRUNC(Arg) 

TRUNC ist identisch mit FIX. Weiteres siehe dort. 

8.4 Trigonometrische Funktionen 


ACOSÖ 

Arcuscosinus-Funktion 

Var=ACOS(Arg) 

Berechnet den Arcuscosinus von Arg. 

Weiters siehe unter ATN(). 


ASINQ 


Arcussinus-Funktion 


Var=ASIN(Arg) 

Berechnet den Arcussinus von Arg. Weiteres siehe unter ATN(). 
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ATNO 


Arcustangens-Funktion 


Var=ATN(Arg) 

Das Argument Arg ist ein Tangenswert, aus dem der ihm ent¬ 
sprechende Winkel in Radiant berechnet wird. Es wird ein Wert 
zwischen -PI/2 und +PI/2 geliefert. Benötigt man die Winkelan¬ 
gabe in Grad, so muß das Ergebnis mit 180/PI multipliziert bzw. 
durch DEG umgewandelt werden. 


CO$0 Cosinus-Funktion 


Var=COS(Arg) 


Berechnet den Cosinus von Arg. Arg ist ein Winkel in Radiant. 
Soll der Winkel in Grad eingegeben werden, muß dieser vorher 
mit PI/180 multipliziert bzw. durch RAD gewandelt werden. 
Beispiel: 

For 1=0 To 90 Step 15 

Print "Sinus ";I;" GRAD : ";Sin(I*Pi/180) 

Print "Cosinus ";I;" GRAD : ";Cos(I*Pi/180) 

Print "Tangens GRAD : ";Tan(I*Pi/180) 

Next I 

For I=-Pi+0.0000001 To Pi Step Pi/90 
Print "Sinus RAD : ";Sin(I) 

Print "Cosinus ";I;" RAD : ”;Cos(I) 

Print "Tangens ";I;" RAD : ";Tan(I) 

Next I 


Ein weiteres Beispiel zu COS() und SIN() finden Sie unter PI. 
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COSQ() Interpolierte Coslnue-Funktion mit Grad-Angabe 


Var=COSQ(Grad) 

Ermittelt den 16tel-Grad-interpolierten Cosinus des in Grad an¬ 
gegebenen Winkels Grad (ca. zehnmal schneller als COSQ). 


Umwandlung in Grad 


DEGO 


Var=DEG(Radiant) 

Rechnet die Radiant-Winkelangabe in Gradmaß (DEGree) um. 
Entspricht dem Ergebnis von ARG* 180/PI. 


P! Kreiszahl 

PI 

Reservierte Variable. Steht dort, wo sie eingesetzt wird, für die 
konstante Kreiszahl PI (3.1415926536). 

Grafik: Cbox 


Beispiel: 


YtX=2 

Deffill ,2,4 
For IX=0 To 360 Step 12 
3Cbox(2,320,200/YtX,250,IX) 
Hext IX 
Cls 

For IX=0 To 720 Step 12 
Add JX,3 ! Radius +3 

3Cbox(1,320,200/YtX,10+JX,IX) 
Next IX 


I Y-Auflösungsteiler 
! DEFFILL grau 
!-. 

!- PBOX-Schleife 
!-* 

! BiIdschirm klar 
!- BOX-Schleife 
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Procedure Cbox(Mod%,Xp%,YpX,RdX,UiX) 

1 Produziert ein Quadrat, das in einem beliebigen Winkel 
1 und mit beliebiger Größe dargestellt werden kann. 

1 ModX = Darstellungsmodus 

• 1 = BOX 

1 2 = PBOX 

1 XpX/YpX = Koordinaten des Mittelpunktes (Drehpunktes) 

1 RdX = Umkreisradius 

1 WiX = Neigungswinkel 


Local JX,IX,YtX,Dg 
YtX=2 ! 

Erase PxX() ! 

Erase PyX() ! 

Dirn PxX(4),PyX(4) I 

For IX=-UiX+45 To -UiX+360+45 Step 90 ! Einmal rundul) 
Dg=IX*Pi/180 ! In Radiant imrechnen 

PxX(JX)=XpX+(Sin(Dg)*RdX*Sqr(2)/2+0.5) !- Koordinaten. 
PyX(JX)=YpX+(Cos(Dg)*RdX/YtX*Sqr(2)/2+0.5) !- ..berechnen 


Y-Auflösungsteiler 
POLY-X-Feld löschen 
POLY-Y-Feld löschen 
POLY-Felder dimensionieren 


Inc JX 


! Ecken-Zähler +1 

Next IX 


! Nächste Ecke 

If ModX=1 


1 BOX-Darstellung? 

Polyline 
Endi f 

5,PxX(),PyX() 

1 Dann Polyline 

If ModX=2 


! PBOX-Darstellung? 

Polyfill 
Endi f 
Return 

5,PxX(),PyX() 

1 Dann Polyfill 


RADQ 


Umwandlung in Radiant (Bogenmaß) 


Var=RAD(Grad) 

Rechnet die Grad-Winkelangabe Grad in Bogenmaß (RADiant) 
um. 
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Sinus-Funktion 


SINO 


Var=SIN (Arg) 

Berechnet den Sinus von Arg. Weiteres siehe unter COS(). 


SINQQ Interpolierte SInua-Funktion mit Grad-Angabe 


Var=SINQ(Grad) 

Ermittelt den 16tel-Grad-interpolierten Sinus des in Grad ange¬ 
gebenen Winkels Grad (ca. zehnmal schneller als SINQ). 


TANO 


Tangens-Funktion 


Var=TAN (Arg) 

Berechnet den Tangens von Arg. Weiteres siehe unter COS(). 


8.5 Vergleichsoperationen 


MAX() Größten Wert ermitteln/größten String ermitteln 


Var=MAX(Expr1,Expr2 [,Expr3,...]) 

Var$ = MAX(Expr 1 $,Expr2$ [,Expr3$,...]) 

Gibt den größten Wert einer Werteliste bzw. den größten String 
einer String-Liste zurück. Expr kann ein beliebiger nume¬ 
rischer- oder Textausdruck, Wert, String bzw. Variable sein. Alle 
Ausdrücke müssen demselben Typ angehören. 
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Bei String-Vergleichen wird der größte String ermittelt, indem 
der Reihe nach alle Einzelzeichen der zu vergleichenden Strings 
überprüft werden. Haben beide Zeichen denselben ASCII-Wert, 
werden solange die nächsten beiden Zeichen geprüft, bis sie sich 
unterscheiden oder einer der beiden Strings keine Zeichen mehr 
enthält. Im ersten Fall ist der Ausdruck größer, dessen zuletzt 
geprüftes Zeichen den größeren ASCII- Wert besitzt. Im zweiten 
Falle ist es der String mit der größeren Länge. 


MINO 


Kleinsten Wert/String ermitteln 


Var=MIN(Expr1,Expr2 [,Expr3,...]) 

Var$ = MIN(Expr1$,Expr2$ [,Expr3$,...]) 

Gibt den kleinsten Wert einer Werteliste bzw. den kleinsten 
String einer String-Liste zurück. Siehe auch Erläuterungen zu 
MAX(). 


8.6 Bit-Operationen 


Konjunktions-Funktion 


ANDO 


Var=AND(Wert1,Wert2) 

Verknüpft logisch die beiden angegebenen Werte im AND- 
Modus und liefert das Integer-Ergebnis (siehe Kapitel 4 "Basis- 
BASIC"). 

Die Booleschen Funktionen stehen jeweils als Ersatz für die 
entsprechende logische Verknüpfungsoperation: 

AND(x,y) entspricht (x AND y) 

OR(x,y) entspricht (x OR y) 

XOR(x,y) entspricht (x XOR y) 
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EQV(x,y) entspricht (x EQV y) 

IMP(x,y) entspricht (x IMP y) 

Beispiel: 

Print &X11101101 And &X1111.And(X11101101,X1111) 

Print &HED Or ..Or($ED,SF) 

Print 237 Xor 15' 1 "'Xor(237,15) 

Durch die Funktionsform werden diese Operationen für den 
Programmierer übersichtlicher und für das BASIC schneller "er¬ 
faßbar", wodurch sich Geschwindigkeitsvorteile von bis zu 10 
Prozent ergeben. 

In der Beschreibung zu IF..ENDIF habe ich den Vorgang der 
Bedingungsstellung durch AND und OR zu erklären versucht. 
Eine häufige Bedingungsform ist z.B.: 

IF <(v1X=w1 OR v2X<>w1) AND v3X>(ex1X+u2)) OR v4X<w2 

Durch die Verknüpfungsfunktionen kann diese Bedingung fol¬ 
gendermaßen umgestaltet werden: 

IF OR(AND(OR(vlX=w1,v2X<>w1),v3X>(exlX+w2)),v4X<w2) 

Durch die klare Klammersetzung kann ein Ausdruck dieser Art 
wesentlich leichter analysiert werden. Ein kleiner Nachteil ist, 
daß OR- oder AND-Ketten etwas unübersichtlicher werden. 

Aus: 


IF vix>w1 OR v2X<>w1 OR v3X<>v1X OR v4X=w2 


wird: 


IF OR(OR(OR(v1X>w1,v2X<>w1),v3X<>v1X),v4X=w2) 

Aber das ist wohl Geschmacksache. Man wird ja durch nichts 
daran gehindert, in solchen Fällen die erste Variante zu verwen¬ 
den. 
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BCHGO 


Einzel-Bit wechseln (Xor-en) 


Var=BCHG(Wert,Bit) 

Wechselt das angegebene Bit von Wert (Wert XOR 2 A Bit). War 
das Bit vorher 1, dann ist es anschließend 0 und umgekehrt. 

Beachten Sie bei den Einzel-Bit-Funktionen, daß die Bit-Zäh¬ 
lung von rechts mit der Bit-Nummer 0 beginnt. Bit kann belie¬ 
big angegeben werden, wobei größere Werte als 31 (max. 
Breite=32 Bit) nicht mehr korrekt verarbeitet werden. Größere 
Angaben für Wert als 2 A 32-1 (&HFFFFFFFF = max. Longwert) 
werden nicht verarbeitet. 


BCLRQ 


Eirtzel-Bit löschen 


Var=BCLR (Wert,Bit) 

Löscht das angegebene Bit von Wert (Wert AND NOT 2 A Bit). 
War das Bit vorher 1, ist es anschließend 0. 0 bleibt 0. Weiteres 
siehe unter BCHG(). 


BSETO 


Einzel-Bit setzen 


Var=BSET (Wert, Bit) 

Setzt das angegebene Bit von Wert (Wert OR 2 A Bit). War das Bit 
vorher 0, ist es anschließend 1. War es 1, bleibt es 1. Weiteres 
siehe unter BCHGQ. 
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BTSTÖ 


Einzel-Bit auf an/aus testen 


Var=BTST (Wert,Bit) 

Testet das angegebene Bit von Wert (-SGN(Wert AND 2 A Bit)). 
Ist das Bit gesetzt, wird eine -1 (TRUE) geliefert, sonst 0 
(FALSE). Weiteres siehe unter BCHGQ. 


BYTE 0 Vorzeichenloses LO-Byte eines Wertes liefern 


Var=BYTE (Wert) 

Liefert vorzeichenlos die untersten 8 Bit von Wert. 


CARD() Vorzeichenloses LO-Word eines Wertes liefern 
Var=CARD (Wert) 

Liefert vorzeichenlos die untersten 16 Bit von Wert. 


EQVÖ Äquivalenz-Funktion 


Var=EQV(Wert 1, Wert2) 

Verknüpft logisch die beiden angegebenen Werte im EQV- 
Modus und liefert das Integer-Ergebnis. Weiteres siehe unter 
AND(). 
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IMPQ Implikations-Funktion 

Var=IMP(Wert1, Wert2) 

Verknüpft logisch die beiden angegebenen Werte im IMP-Modus 
und liefert das Integer-Ergebnis. Weiteres siehe unter AND(). 


ORÖ 


Disjunktions-Funktion 


Var=OR (Wert 1,Wert2) 

Verknüpft logisch die beiden angegebenen Werte im OR-Modus 
und liefert das Integer-Ergebnis. Weiteres siehe unter AND(). 


Bits links verschieben 


SHLQ 


Var=SHL(Wert,Bits) Long-Shift-Left 
Var=SHL&(Wert,Bits) Word-Shift-Left 
Var=SHL| (Wert.Bits) Byte-Shift-Left 

Verschiebt den Inhalt von 'Wert’ um die Anzahl 'Bits’ nach links. 
Je verschobenem Bit wird 'Wert’ dabei mit 2 multipliziert 
(Integer-Multiplikation: Var=Wert*2 A Bits). Das rechts frei wer¬ 
dende Bit wird mit 0 gefüllt. 


Höchstes / // // // / .—. 

Bit <-• /////// | 0 | 

fällt raus /////// 1 - 1 

.-.-.-.-.—.—.—.—. / Null wird 

|0|1|1|0|1|0|0|0| <-' nachgeschoben 

I_I_I_I_I_I_I_I_I 
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Bei Angabe von & hinter SHL werden nur die ersten 16 Bit 
(LO-Word) von Wert geshiftet, bei | nur die ersten 8 Bit (LO- 
Byte). Ist Wert bei SHL|() größer als 8 Bit, so werden als Ergeb¬ 
nis trotzdem nur die untersten 8 Bit der Operation geliefert. 
Dasselbe gilt für SHL&() (16 Bit), wobei dann jedoch das Bit 15 
des Ergebnisses in die Bits 16-31 kopiert wird (vorzeichenbe¬ 
haftet). 


SHRQ 


Bit» logisch rechts verschieben 


Var=SHR(Wert,Bits)Long-Shift-Right 
Var=SHR&(Wert,Bits) Word-Shift-Right 
Var=SHR | (Wert,Bits) Byte-Shift-Right 

Verschiebt den Inhalt von 'Wert’ um die Anzahl ’Bits’ nach 
rechts. Je verschobenem Bit wird 'Wert’ dabei durch 2 dividiert 
(Integer-Division: Var=Wert DIV 2^Bits). Das links frei wer¬ 
dende Bit wird mit 0 gefüllt. Bei Komplementwerten bleibt also 
das Vorzeichen nicht erhalten. 


I 1 I 0 I 1 I 1 I 0 I 1 I 0 I 0 I 

I_I_I_I_I_I_I_I_I 

.-. \\\\\\\ \ Niedrigstes 

Null | 0 | \\\\\\\ Bit 

wird '- 1 \ \ \ \ \ \ \ fällt raus 

nach- \ .-.-.-.-.-.-.-.-. 

geschoben 1 -> |0|1|0|1|1|0|1|0| 

I_I_I_I_I_I_I_I_I 


Bei Angabe von & hinter SHR werden nur die ersten 16 Bit 
(LO-Word) von Wert geshiftet, bei | nur die ersten 8 Bit (LO- 
Byte). Ist Wert bei SHR|() größer als 8 Bit, so werden als Ergeb¬ 
nis trotzdem nur die untersten 8 Bit der Operation geliefert. 
Dasselbe gilt für SHR&() (16 Bit), wobei dann jedoch das Bit 15 
des Ergebnisses in die Bits 16-31 kopiert wird (vorzeichenbe¬ 
haftet). 
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Bits links rotieren 


ROlO 


Var=ROL(Wert, Bits) Long-Rotate-Left 
Var=ROL&(Wert,Bits) Word-Rotate-Left 
Var=ROL| (Wert,Bits) Byte-Rotate-Left 

Rotiert den Inhalt von 'Wert’ um die Anzahl 'Bits’ nach links. 
Das jeweils rechts frei werdende Bit wird dabei mit dem jeweils 
links herausgeschobenen Bit gefüllt. 


| 1 | o | i | i | o | i | o | i | 

• _I_l_l_l_l_l_I_i 

//////// 

• /////// 
/////// 


| 0 | 1 | 1 | 0 I 1 I 0 | 1 I 1 I 

I_I_I_I_I_I_I_I_I 


<--' 


Das 

höchste Bit 
des Wertes 
wird als 
niedrigstes 
Bit nach- 
geschoben 


Bei Angabe von & hinter ROL werden nur die ersten 16 Bit 
(LO-Word) von Wert rotiert, bei | nur die ersten 8 Bit (LO- 
Byte). Ist Wert bei ROL|() größer als 8 Bit, so werden als Ergeb¬ 
nis trotzdem nur die untersten 8 Bit der Operation geliefert. 
Dasselbe gilt für ROL&() (16 Bit), wobei dann jedoch das Bit 15 
des Ergebnisses in die Bits 16-31 kopiert wird (vorzeichenbe¬ 
haftet). 


RORQ 


Bits rechts rotieren 


Var= ROR(Wert.Bits) Long-Rotate-Right 
Var=ROR&(Wert,Bits) Word-Rotate-Right 
Var=ROR | (Wert,Bits) Byte-Rotate-Right 

Rotiert den Inhalt von ’Wert’ um die Anzahl ’Bits’ nach rechts. 
Das jeweils links freiwerdende Bit wird dabei mit dem jeweils 
rechts herausgeschobenen Bit gefüllt. 
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Das 

niedrigste 
Bit des 
Uertes 
wird als 
höchstes 
Bit nach¬ 
geschoben 



Bei Angabe von & hinter ROR werden nur die ersten 16 Bit 
(LO-Word) von Wert rotiert, bei | nur die ersten 8 Bit (LO- 
Byte). Ist Wert bei ROR|() größer als 8 Bit, so werden als Ergeb¬ 
nis trotzdem nur die untersten 8 Bit der Operation geliefert. 
Dasselbe gilt für ROR&O (16 Bit), wobei dann jedoch das Bit 15 
des Ergebnisses in die Bits 16-31 kopiert wird (vorzeichenbe¬ 
haftet). 


SWAPO 


HI- und LO-Word vertauschen 


Var=SWAP (Wert) 

- Funktion - (siehe SWAP als Befehl) 

Vertauscht das LO-Word (Bits 0-15) von ’Wert’ mit dessen HI- 
Word (Bits 16-31). 'Wert’ wird dabei grundsätzlich als 32-Bit- 
Integerwert interpretiert. Wird ’Wert’ als Realwert übergeben, 
werden evtl, vorhandene Nachkommastellen vor Ausführung der 
Operation integriert (siehe INT()). Kleinere Wert-Formate als 32 
Bit werden auf Long erweitert. 
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Wert auf 32 Bit erweitern 


WORDQ 


Var=WORD(Wert) 

Erweitert ’Wert’ arithmetisch (vorzeichenbehaftet) auf 32 Bit. 
Das Bit 15 von 'Wert’ wird dabei in die obersten 16 Bits des Er¬ 
gebnisses kopiert. Ist also Bit 15 (16. von links) von 'Wert’ ge¬ 
setzt, so ist das Ergebnis von WORD(Wert) negativ. 


«XcluslvOR-F unktion 


XORO 


Var=XOR (Wert 1, Wert2) 

Verknüpft logisch die beiden angegebenen Werte im XOR-Mo- 
dus und liefert das Integer-Ergebnis. Weiteres siehe unter 
AND(). 


8.7 Zufallswert-Erzeugung 


RAN DO 


1 6-BH-lrrteger-Zufa llszahl 


Var=RAND(n) 

Übergibt eine vorzeichenlose 16-Bit-Integer-Zufallszahl aus dem 
Zahlenbereich 0 (inkl.) und n (exkl.). Größere Werte für n als 
65535 werden durch n MOD 65535 auf den zulässigen Bereich 
umgerechnet. 
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32-Bit-lnteger-ZufaUszahl 


RANDOMQ 


Var= RANDOM(n) 

Übergibt eine 32-Bit-Integer-Zufallszahl aus dem Integer- 
Zahlenbereich 0 (inkl.) und n (exkl.), wobei n auch negativ sein 
kann. 


RANDOMIZE {RA} Zulallszahlengenerator initialisieren 


RANDOMIZE [(Start)] 

Initialisiert den Zufallszahlengenerator. Bei Verwendung des 
optionalen Parameters Start wird der Generator mit diesem Wert 
gestartet. Bei mehrfacher Verwendung desselben Startwertes be¬ 
ginnt immer dieselbe Zufallszahlenfolge mit 'Start’ als erstem 
Wert. Möchten Sie denselben Startwert intialisieren, der bei 
Systemstart gültig war, so kann die optionale Start-Klammer 
weggelassen oder RANDOMIZE 0 verwendet werden. 


RNDQ Dezimalstellen-Zufallszahl 


Var=RND [(Arg)] 

Es wird ein 13stelliger Zufallswert im Bereich zwischen 0 (inkl.) 
und 1 (exkl.) geliefert. Die gesamte Klammer ist optional und 
kann vernachlässigt werden. Wenn sie verwendet wird, so gilt 
'Arg' als Scheinargument ohne Bedeutung. Beispiel: 

Print RND(0)*10+3 ! Liefert zufällige Realzahl 

! im Bereich von 3 bis 13 
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9. Grafik 

9.1 Grafikdefinitionen 


Version 3.0 


BOUNDARY { BOÜ } P-Grafikumrandung an/aus 


BOUNDARY Flag 

Schaltet die Umrandung von P-Grafikobjekten (PBOX, 
PCIRCLE, POLYFILL etc.) an (Flag = 1) oder aus (Flag = 0). 


Beispiel: Diese Prozedur eignet sich zur Erzeugung der unter¬ 
schiedlichsten geometrischen Figuren. Spielen Sie ein wenig mit 
den Einstellungsparametern und den Punktangaben der 
POLYxxx-Befehle. Das Koordinatenfeld wurde vorsorglich auf 
maximal 60 Punkte dimensioniert, um Veränderungen der 
Schrittweite zulassen zu können. Ein rechtwinkliges Dreieck läßt 
sich z.B. dadurch erzeugen, indem daß Sie die Schrittweite STEP 
von 120 auf 90 ändern. Ein exzentrisches Dreieck entsteht, wenn 
Sie STEP kleiner 90 werden lassen. Ein gleichmäßiges Sechseck 
entsteht, indem Sie STEP 60 einstellen und gleichzeitig die 
Punktangaben bei POLYLINE auf 7 sowie bei POLYFILL auf 6 
Punkte ändern. 


DEFMARK ,4 
DEFFILL ,2,4 
FOR iX=0 TO 360 STEP 20 
BOUNDARY 0 

actri(1,120,110,100,i%) 
Bctri(2,120,110,60,iX) 
BOUNDARY 1 

actri(2,520,110,60,iX) 
NEXT iX 


! Marker einstellen 
! DEFILL grau 

! Einmal rundherun in 20-Grad-Steps 
! Rahmen aus 


! Rahmen an 


PROCEDURE ctri(modX,xpX,ypX,rdX.wiX) ! Für Hires 

' Produziert ein Dreieck, das in einem beliebigen Uinkel 
1 und mit beliebiger GröBe dargestellt werden kann. 
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Mod% = Darstellungsmodus 

1 = Nur Linie 

2 = Gefüllte Oreiecksflache 

Möchten Sie nur die Eck-Koordinaten ermitteln, ohne daß 
die Figur gezeichnet wird, so übergeben Sie ModX = 0. 
Oie Eck-Koordinaten können Sie dann nach Rückkehr aus 
PxX(0)/PyX(0) bis PxX(2)/PyX(2) auslesen. 

XpX/YpX = Koordinaten des Mittelpunktes (Drehpunktes) 

RdX = Umkreisradius 

WiX = Neigungswinkel 


LOCAL jX,iX.ytX ! 

ytX=1 I 

ERASE pxXO I 

ERASE pyX() I 

DIM pxX(4),pyX(4) i 

FOR iX=-wiX TO -wiX+360 STEP 
pxX(jX)=xpX+(SIN(iX*PI/180) 
pyX(jX)=ypX+(C0S(iX*PI/180) 
INC jX ! 

NEXT iX 
I F modX=1 

POLYLINE 4,pxX(),pyX() 

ENDIF 

I F mod%=2 ! 

POLYFILL 3,pxX(),pyX() ! 

ENDIF 
RETURN 


Lokale Variablen 
Y-Auflösungsteiler 
POLY-X-Feld löschen 
POLY-Y-Feld löschen 
POLY-Felder dimensionieren 
120 I Einmal rundum 
*rdX+0.5) ! Koordinaten.. 

*rdX/ytX+0.5) I ...berechnen 
Ecken-Zähler +1 
Nächste Ecke 
Nur Linie? 

Dann POLYLINE 

Gefüllte Figur? 

Dann POLYFILL 


Unienfarbe bestimmen 


COLOR { C } 


COLOR Front, Back, OutLine 

Bestimmt das Farb-Register, aus dem linien- und punktezeich¬ 
nende Grafikobjekte (LINE, PLOT, DRAW, CIRCLE, BOX etc.) 
ihre Farben beziehen. Dabei gibt Front die Farbnummer an, mit 
der Linien gezeichnet werden, Back, mit welcher Farbe der 
Hintergrund gezeichnet werden soll, und OutLine enthält die 
Farbnummer, mit der Objekte, die ein P am Anfang des Befehls 
haben, umrandet werden. 

Der Auswahlbereich für die Farbnummern hängt dabei ganz von 
der Screen-Auflösung ab. Er kann maximal zwischen 0 und 63 
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liegen, wird aber bei höheren 
Planes heruntergesetzt. 

Allgemein gilt: 

1 BitPlane -> 2 Farben 

2 BitPlanes -> 4 Farben 

3 BitPlanes -> 8 Farben 

4 BitPlanes -> 16 Farben 

5 BitPlanes -> 32 Farben 

6 BitPlanes -> 64 Farben 


Auflösungen oder weniger Bit- 


Allerdings gelten folgende Einschränkungen: 

- Im Hires-Modus (also 640 x 256 Punkte) können maximal 4 
BitPlanes, also 16 Farben angesprochen werden. 

- Es ist nicht möglich, mehr als 5 BitPlanes ohne besondere 
Tricks zu verwalten. 

Daher fragt man sich, wozu die höheren Farbnummern von 32 
bis 63 gebraucht werden. Diese werden für zwei besondere 
Grafik-Modi des Amiga benötigt. Und zwar ist dies einmal der 
EXTRA_HALFBRITE- und der HAM-Modus, zu denen Sie 
mehr unter OPENS lesen können. 


Auflösung 


BitPlanes 

Farben 

Hirea 

(640/256) 

4 

0 . 

.. 16 

Hirea Lace 

(640/512) 

4 

0 . 

. 16 

Lowrea 

(320/256) 

5 

0 . 

. 31 

Lowrea Lace 

(320/512) 

5 

0 . 

. 31 

HAM 

(320/256) 

6 

0 . 

. 63 (aber 4096 wirklich) 

HAM Lace 

(320/512) 

6 

0 . 

. 63 (aber 4096 wirklich) 

EHB 

(320/256) 

6 

0 . 

. 63 (32 mit 2 Helligkeiten) 

EHB Lace 

(320/512) 

6 

0 . 

. 63 (32 mit 2 Helligkeiten) 


Bei den Auflösungen gibt es Farben, die bei Systemstart vorein¬ 
gestellt sind. Der Inhalt der Register kann mit dem Befehl 
SETCOLOR bestimmt werden. Ein Beispiel finden Sie unter 
SETCOLOR. 
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DEFFILL { DEFF } Füllmuster bestimmen 

DEFFILL [Farbe],[Stil].[Muster] 

DEFFILL [Farbe],Muster$ 

Legt Füllfarbe, Füllstil und Füllmuster für P-Grafikbefehle und 
FILL fest bzw. ermöglicht eigene Muster-Definitionen. 
Parameter Farbe siehe unter COLOR. 


Stil Muster 


0 = Hintergrundfarbe 

= > 

Entfällt 

1 = Objektfarbe 

= > 

Entfallt 

2 = Punktiert 

= > 

2 bis 24 

3 = Schraffiert 

= > 

1 bis 12 

4 = Selbatdefiniert 

= > 

Amiga- biw. Benutaer-Muater 


Parameter, die unverändert bleiben sollen, können ausgelassen 
werden (jedoch nicht die dazugehörigen Trennkommas). Mit der 
Variante DEFFILL Farbe,Muster$ läßt sich ein eigenes Füll¬ 
muster einrichten. Dazu ist in MusterS ein 16 (bzw. 32/64 siehe 
unten) Words langer String zu übergeben. Dieser beinhaltet 16 
Words (bzw. 32/64 siehe unten) im MKI$-Format, die der Reihe 
nach die Bit-Muster der 16 Musterzeilen enthalten. Beispiel 1: 

F.muster$=MkiS(&X1111111111111111) 

F.muster$=F.muster$+Mki$(&X1000000000000000) 

F.muster$=F.muster$+Mki$(&X1000000110000000) 
F.musterS=F.muster$+Mki$(&X1000001001000000) 

F.muster$=F.muster$+Mki$(&X1000010000100000) 

F. muster$=F.muster$+MkiSC&X1000100000010000) 

F.muster$=F.muster$+MkiS(&X1001000110001000) 
F.muster$=F.musterS+Mki$(&X1010001111000100) 

F.muster$=F.muster$+Mki$(&X1001000110001000) 

F.muster$=F.musterS+MkiS(&X1000100000010000) 

F.muster$=F.muster$+Mki$(&X1000010000100000) 

F.muster$=F.muster$+Mki$(&X1000001001000000) 

F.musterS=F.muster$+Mki$(&X1000000110000000) 
F.muster$=F.musterS+Mki$(&X1011111111111110) 

F.muster$=F.muster$+Mki$(&X1001111111111000) 

F.musterS=F.musterJ+Mki$(&X1000000000000000) 

Deffitt 1,F.muster$ 

Pbox 100,100,200,200 
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Es kann für jede mögliche Bit-Plane jeweils ein 16 Word-Block 
in Muster? übergeben werden. D.h., in den Words 1 bis 16 steht 
dann das Bit-Muster für die Plane 1, in den Words 17 bis 32 das 
zusätzliche Bit-Muster für Plane 2, und in den Words 33 bis 48 
steht das zusätzliche Bit-Muster für Plane 3 usw. 


Beispiel 2: 


GRAPHMOOE 2 
FOR iX=0 TO 7 
DEFFILL iX,3,iX 
PCIRCLE 16,16,16 
DEFFILL iX+2,3,iX+2 
PCIRCLE 48,16,16 
NEXT iX 

3dfiU3(7,7,dfS> 
DEFFILL 1,df$ 

PBOX 15,64,192,192 
GRAPHMODE 3 
3dfil13(42,7,df$) 
DEFFILL 1,df$ 

PBOX 105,14,192,112 


I-. 

I Irgendein 
! Bit-Muster 
! erzeugen 
I-• 

I V3.0-Aufruf 
I Neues Füllmuster.. 

I ...zeigen 
I XOR-Modus 
I V3.0-Aufruf 
I Neues FüUmuster.. 

I Zeigen (mit Überlappung) 


PROCEDURE dfill3(d.xX,d.yX,VAR d.ffS) ! nur für V3.0 
1 Kopiert einen beliebigen 16*16-Bildschirmausschnitt im 
1 DEFFILL-Format in eine String-Variable (Hires/Midres/Lowres) 
1 D.xX = Linke Quell-X-Koordinate 
1 D.yX = Obere Quell-Y-Koordinate 
1 D.ffJ = VAR-String-Variable, welche nach Abschluß 
1 die Füllmusterdaten enthält 


LOCAL d.fr$,dc1X,dc2X,d.f$,xbX 
GET d.xX,d.yX,d.xX+15,d.yX+15,d.frS 
d.f$=RIGHT$(d.fr$,32) 
d.ffS=d.fS 
RETURN 


! Lokale Variablen 
! Ausschnitt speichern 

• Muster übertragen 

• Muster-Rückgabe 


DEFLINE { DE } Linien-Modi bestimmen 


DEFLINE [Stil] 


Mit diesem Befehl kann das bei linienzeichnenden Befehlen 
(BOX, LINE, CIRCLE, DRAW etc.) zu verwendende Linien¬ 
muster festgelegt werden. 
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Stil: 

0 = Linie in Hintergrundfarbe 

1 = Durchgezogene Linie 

2 = Gestrichelte Linie 1 


3 = Gepunktete Linie 

4 = Punkt-Strich-Linie 


5 = Gestrichelte Linie 2 


6 = Strich-Punkt-Punkt-Linie 


-1 

bis = Benutzerstil 
-32767 

Der selbstdefinierte Linienstil setzt sich aus einem 15-Bit-Wert 
zusammen, wobei jedes gesetzte Bit einem Punkt in der Linie 
entspricht. Diese Zahl muß als Minuswert übergeben werden. 
Die Linie setzt sich dann aus dem Vielfachen dieser 15 Bits zu¬ 
sammen. Die Stil-Veränderungen wirken sich nur bei 
Liniendicke 1 aus. Alle anderen Liniendicken werden als Voll- 
Linie gezeichnet. 

0 = Eckig 

1 = Pfeil förmig 

2 = Rund 


Beispiel: 

FOR iX=1 TO 6 
DEFLINE iX 

LINE 200,60+iX*16,300,60+iX*16 
PRINT AT(40,8+iX*2);iX 
NEXT i% 

DEFLINE -18149 ! -18149 = -&X100011011100101 

FOR iX=1 TO 90 STEP 4 
BOX 10+iX,10+iX,190-iX,190-iX 
NEXT iX 
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DEFMOUSE { DEFMO }Mau8form bestimmen ln V3.0 { DEFM » 


DEFMOUSE Form 
DEFMOUSE Maus$ 

Aufruf von selbstdefinierten oder systemeigenen Mausformen. 
Form (vordefiniert): 

0 = Pfeil 1 = X-Klammer (Text-Cursor) 

2 = Sanduhr 3 = Zeigende Hand 

4 = Offene Hand 5 = Fadenkreuz fein 

6 = Fadenkreuz grob 7 = Fadenkreuz umrandet 


Statt Form kann durch Maus$ eine String-Variable angegeben 
werden, deren Inhalt im MKI$-Format die Mausform definiert. 


Word I 

X-Koordinate des Aktionspunktes. 


Word 2 

Y-Koordinate des Aktionspunktes. Auf den Aktionspunkt wer¬ 
den anschließend alle Mausaktionen (z.B. Mousex, Mousey) be¬ 
zogen. 


Word 3 

Immer MKI$(1). 


Word 4 

Maskenfarbe (Hintergrund des Mausbildes): 
weiß = HKIS(0)/schuarz = HKI$(1) 


Word 5 

Cursor-Farbe (Mausbild). 
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Word 6 bis 21 

16-Bit-Musterzeilen der Mausmaske. 


Word 22 bis 37 

16-Bit-Musterzeilen des Mausbildes. 


Die Definition einer Mausform ist beim Amiga vierfarbig mög¬ 
lich. 


Beispiel: 


OPENU 0 
PAUSE 20 
FOR i=0 TO 8 
DEFMOUSE i 
PAUSE 40 
NEXT i 


1 Ausgabe-Window öffnen 
1 Zeit zum Anklicken geben 

1 neues Haus-Image definieren 
' Zeit zur Anzeige geben 


GRAPHMODE { GR } Grafikmodus bestimmen 


GRAPHMODE Modus 

Modus bestimmt den Operationsmodus, mit welchem Grafikaus¬ 
gaben in den bestehenden Hintergrund eingesetzt werden. 


0 = JAM1 (transparent) 

Das verwendete Grafik-Element (PBOX, LINE etc) wird voll¬ 
ständig gezeichnet. Allerdings beschränkt sich die Textausgabe 
auf die Linien, die zur Darstellung benötigt werden. Der Raum 
um den Text wird nicht verändert. 


Neuer Punkt = Farbmaske des neuen Punktes OR neuer Punkt 
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1 = JAM2 (replace) 

Das verwendete Grafik-Element (PBOX, LINE etc.) wird voll¬ 
flächig dargestellt. Alles, was sich darunter befindet, wird davon 
überdeckt und ersetzt. Bei der Textausgabe wird auch der Hin¬ 
tergrund, auf den man den Text schreibt, mit der Hintergrund¬ 
farbe überschrieben. 

Neuer Punkt = Farbmaske des neuen Punktes AND neuer Punkt 


2 = COMPLEMENT (invertiert) 

Es werden alle Bildpunkte gesetzt, die vorher nicht gesetzt wa¬ 
ren und umgekehrt. Dies geschieht aber nur an den Stellen, an 
denen auch eine Grafik ausgegeben wird. COMPLEMENT ar¬ 
beitet in der Beziehung wie auch JAM1. 


4 = INVERSEVID (invertiert) 

Bei diesem Ausgabemodus wird z.B. der auszugebende Text in¬ 
vertiert dargestellt. Das heißt, dort, wo Text stehen soll, wird 
der Grafikbildschirm gelöscht. Und dort, wo im Normalfall 
Hintergrund erscheint, ist jetzt Dunkelheit (der Amiga setzt dort 
die Punkte). 

Alle diese Zeichenmodi lassen sich untereinander verknüpfen! 
Sie können durch Addieren der Kennzahlen zweier Zeichenmodi 
einen neuen kreieren. Allerdings gibt es natürlich auch hier 
Grenzen. Deshalb wurde z.B. JAM1 mit der Null belegt. Sie 
können, so oft Sie wollen, eine Null zu einem anderen Zeichen¬ 
modus addieren, und es wird sich nichts ändern. Andererseits 
sind Kombinationen wie JAM2 und COMPLEMENT durchaus 
anwendbar und erzeugen interessante Effekte. 

Die vier Grund-Modi zeigt die folgende Grafik: 

Beispiel: 

DEFFILL ,2,5 
PBOX 10,10,200,90 
BOX 8,8,202,124 

TEXT 36,118,"G R A P H M 0 D E" 

DEFFILL ,2,4 
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FOR iX=1 TO 4 
GRAPHM00E 2‘(iX-2) 

PBOX iX*50-35,22,iX*50-20,160 
GRAPHMOOE 0 

TEXT iX*50-18,158,IMT(2'(iX-2)) 
NEXT iX 


SETCOLOR { SET } Hardwaro-Farbregister einstellen 


SETCOLOR Reg,Rot,Grün,Blau 
SETCOLOR Reg,Mischwert 

Die Farbe des mit Reg angegebenen Farbregisters der aktiven 
Screen kann entweder durch die Farbanteile Rot, Grün und Blau 
(jeweils 0 bis 15) oder durch einen Mischwert (0 bis 4095) defi¬ 
niert werden. 

Mischwert = (Rotanteil*256)+(Grünanteil*16)+Blauanteil 


Bei verschiedenen Gelegenheiten ist es von Nutzen, die 
Registereinträge nicht mit drei unabhängigen Parametern vorzu¬ 
nehmen, sondern einen Gesamt-Mischungswert zu übergeben. 
GFA-BASIC unterscheidet, ob ein oder mehrere Farbparameter 
übergeben wurden. Wird nur der Parameter Mischwert über¬ 
geben, setzt sich die Farbmischung nach folgendem Muster zu¬ 
sammen: 

Soll z.B. ein Blauanteil von 3, ein Rotanteil von 2 und ein 
Grünanteil von 5 übergeben werden, errechnet sich der Wert, 
indem man den Rotanteil mit 256 (2 A 8) multipliziert, den 
Grünanteil mit 16 (2 A 4) und den Blauanteil mit 1 (2 A 0). In 
diesem Beispiel müßte der Wert 595 übergeben werden, um die 
gewünschte Farbmischung zu erhalten. 

Durch die Möglichkeit, mit Hexadezimalzahlen zu arbeiten, kann 
man diese Berechnung folgendermaßen vereinfachen: 
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SETCOLOR 1.&H253 

oder 

A=&H253 
SETCOLOR 1,A 

oder 

AS= ll &H ll +"2"+"5"+"3" 

A=VAL(A$) 

SETCOLOR 1,A 

So lassen sich 4096 verschiedene Farben (3 Grund-Farben mit je 
16 Abstufungen = 16*16*16 = 4096 Farben) erzeugen. 

Die Bits 0-7 von Mischwert bestimmen dabei den Rotanteil, 
die Bits 8-15 den Grünanteil und die Bits 16-23 den Blau¬ 
anteil der Farbe. 

Bei Verwendung der Standard-Ausgabe auf der Workbench mit 
dem GFA-Ausgabe-Fenster haben die vier Farbregister eine 
festgelegte Zuordnung: 

Register 0 = Hintergrund-Farbe (Blau) 

Register 1 = PRINT-Ausgabetext-Farbe (Weiß) 

Register 2 = Block-Farbe (Schwarz) 

Register 3 = Signal-Farbe für Warnungen (Rot) 

Leider ist der Goethesche Farbkreis hier nicht anwendbar, da 
hier nicht die drei Elementarfarben Rot, Blau und Gelb ge¬ 
mischt werden. Um sich bei der Farbwahl zu orientieren, müßte 
aus Grün die Farbe Blau subtrahiert werden, um Gelb zu erhal¬ 
ten. Trotzdem kann man sich seiner als allgemeine Richtlinie 
bedienen: 

ROT 

VIOLETT ORANGE 

WEISS 

BLAU GELB 

GRÜN 

Zur Farbphysik: 

Es existieren drei Elementarfarben : ROT, BLAU, GELB. 

Die 1:1-Mischung zweier dieser Farben ergibt die Komplemen¬ 
tärfarbe (Gegenfarbe) der nicht beteiligten dritten Farbe. 


entspricht 
- Setcolor 1,2,5,3 
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1:1 Mischung von ROT und BLAU ergibt VIOLETT (= Komplement su 
GELB) 

1:1 Mischung von ROT und GELB ergibt ORANGE (= Komplement su 
BLAU) 

1:1 Mischung von BLAU und GELB ergibt GRÜN (= Komplement su ROT ) 
1:1:1 Mischung von ROT, BLAU und GELB ergibt WEISS. 

Ist keine der Elementarfarben beteiligt, ergibt sich die "Nicht¬ 
farbe" SCHWARZ. Beispiel: 


DIM cX(15) 
SETCOLOR 0,0 
FOR iX=1 TO 15 
IF iX<8 
cX(iX)=iX*16 


1 DIM Farb-Speicher 
! Hintergrund schwarz 
I 15 Register (auBer 0) >— 
I 7 Werte von weiB zu grün 
! Grünanteil erhöhen 


ELSE ! 8 Werte von gelb zu rot 

cX(iX)=7*256+(15-iX)*16 1 Grünanteil vermindern 


ENDIF 

SETCOLOR iX.cX(iX) 
NEXT iX 
FOR jX=0 TO 4 
RESTORE 

FOR iX=1 TO 15 
READ aX 
COLOR aX 


Farbe setzen 
Nächstes Register <- 
5 mal >- 


Data-Zeiger setzen 
15 Farben >- 


! COLOR-Register holen 
1 BOX- und CIRCLE-Farbe setzen 
BOX 200+ jX*20+iX,20+jX*20+iX,400-jX*20-iX,220-jX*20- 
CIRCLE 300,120,jX*15+iX*10 
CIRCLE 300,120,jX*15+iX*10+5 

NEXT iX ! Nächste Farbe <- 

NEXT jX ! Nächster Offset <- 

DO ! Endlos-Schleife >- 


X I 


bX=cX(15) 

FOR iX=14 DOWNTO 1 
cX(iX+1)=cX(iX) 
NEXT iX 
cX(1)=bX 
FOR iX=1 TO 15 
FOR )X=1 TO 100 
NEXT jX 

SETCOLOR iX,cX(iX) 
NEXT iX 
LOOP 


- Farben rotieren 


! 15 Register >- 

! Kleine... 

< ...Pause 

! Neue Farbe setzen 
! Nächstes Register <• 


DATA 2,3,6,4,7,5,8,9,10,11,14,12,15,13,1, Umrechnungstabelle 


! 


Dieses Beispiel produziert eine Farbspielerei, die für Interessierte 
leicht zur Meditationshilfe (für gestreßte Programmierer) oder 
zur Bio-Feedback-Methode "zweckentfremdet" werden kann. Die 



Grafik 


233 


Farben pulsieren mit einer Frequenz von ca. 58 Zyklen pro 
Minute (ca. optimale Pulsfrequenz bei Entspannung). Die Fre¬ 
quenz läßt sich leicht mit der Pausen-Schleife im letzten Block 
verändern. 


9.2 Objektgrafikbefehle 


BOX, PBOX { BO, PB} Rechteck zeichnen 


[P] BOX X_links ) Y_oben,X_rechts,Y_unten 

X_links/Y_oben und X_rechts/Y_unten bezeichnen die diago¬ 
nal gegenüberliegenden Ecken eines Rechtecks, das entweder als 
Linienzug (BOX) oder mit dem aktuellen DEFFILL-Füllmuster 
(PBOX) gezeichnet wird. 

Beispiel: Wenn es darum geht, ein größeres Raster mit PBOX zu 
füllen (z.B. in einer Lupe), sollte man - wenn irgend möglich - 
versuchen, die PBOX durch eine PUT-Fläche zu ersetzen. Das 
geht erheblich schneller. Bei kleinen Rastern fällt der Geschwin¬ 
digkeitsunterschied nicht besonders auf, bei größeren Rastern ist 
es dagegen schon ein merklicher Unterschied, ob das Raster in 2 
oder in 4 Sekunden gefüllt wird. Um das zu demonstrieren, folgt 
eine kleine Routine, die es ermöglicht, einen beliebigen 
Bildausschnitt zu vergrößern und/oder ihn für eine spätere Ver¬ 
wendung (raster-indiziert) in einem Feld zwischenzuspeichern. 

Hier ist eine kleine Bedienungsanleitung nötig. Sie können den 
Bildbereich, in dem der vergrößerte Ausschnitt dargestellt wer¬ 
den soll, beliebig bestimmen. Außerdem kann die Rastergröße 
und die Breite und Höhe eines vergrößerten Rasterpunktes ange¬ 
geben werden. Es ist ungünstig, wenn sich der Wiedergabe- 
Ausschnitt mit dem zu vergrößernden Ausschnitt überschneidet. 
Der Wiedergabe-Ausschnitt wird - sollten seine Eck-Koordina¬ 
ten außerhalb des Bildschirms liegen - von der Routine auf den 
sichtbaren Bildschirm begrenzt. 
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Ist die Routine aufgerufen, so wird ggf. der vergrößerte Aus¬ 
schnitt gezeichnet und die Routine wartet dann darauf, daß mit 
der rechten Maustaste der Lupeninhalt verändert wird. Verlassen 
wird die Lupe zu jedem beliebigen Zeitpunkt mit Druck auf die 
rechte Maustaste. Daran anschließend wird der Lupenhinter¬ 
grund selbständig restauriert. 

Der Lupeninhalt wird verändert, indem mit der linken Maustaste 
der gewünschte Lupenpunkt angeklickt wird. Der Punkt ver¬ 
ändert seine Farbe. Diese Farbe behält er auch bei Mausbewe¬ 
gungen solange bei, bis die Maustaste wieder losgelassen wird. 
Bei jedem Mausklick auf einen Lupenpunkt wird sein Farbindex 
um 1 vermindert. Klicken Sie also auf der Workbench viermal 
auf denselben Punkt, nimmt er nacheinander alle 4 möglichen 
Farben an. Es ist deshalb ratsam, bei einem Punkt-Klick die 
Maustaste gedrückt zu halten, um zu sehen, welche Farbe sich 
ergibt. Solange Sie die Taste gedrückt halten, können Sie mit 
dieser Farbe innerhalb der Lupe zeichnen. Wird die Taste losge¬ 
lassen, wird der Farbindex, auf dem sich die Maus zum Zeit¬ 
punkt des Klicks befindet um 1 vermindert. Haben Sie als Flag 
1 angegeben, wird gleichzeitig auch der originale Bildschirmbe¬ 
reich entsprechend der Lupenänderung verändert. Nach Rück¬ 
kehr aus der Prozedur ist der aktuelle Lupeninhalt in dem Feld 
Larr°/o(Rasterbreite,Rasterhöhe) gespeichert und kann damit auch 
außerhalb der Prozedur verwendet werden. 

Soll die Lupe nicht dargestellt werden, geben Sie als Flag 2 an. 
In diesem Fall wird nur das Feld Larr%() mit dem angegebenen 
Bildausschnitt gefüllt. Der Feldindex entspricht der Lage der 
Punkte im Raster. Die Indizierung beginnt mit Null. Z.B. 
Larr%(0,0) enthält den Farbwert des 1. Punktes links oben in der 
Ausschnittecke und z.B. Larr%(12,6) den Farbwert des Raster¬ 
punktes mit den Rasterkoordinaten 13. Punkt von links/7. Punkt 
von oben. Grundsätzlich ist zu bedenken, daß das Feld - ab¬ 
hängig von der Rastergröße - eine ganze Menge Speicherplatz 
verbrauchen kann. Ein Raster von z.B. 50*50 Punkten benötigt 
(50*50*4) 10000 Bytes. 

Weitere Informationen finden Sie unten in der Beschreibung der 
Prozedur. 
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1 Vorbereitung für beide Anwendungsbeispiele 


FOR iX=0 TO 100 ! 100 mal 

DEFFILL RANDOM(MAX(1,(2‘(2-2))*2-1))+1,2,RANDOM(22) 
xX=RANDOM(590) ! PBOX mit zufälliger... 

yX=RANDOM(200) I ...Farbe, Muster und.. 

PBOX xX,yX,xX+50,yX+50 ! ...Position zeichnen 

NEXT i% 

I 

1 Anwendungsbeispiel 1: 


PRINT "Lupe mit rechter Maustaste aufrufen" 

DO I Endtos-Schleife 

GRAPHMOOE 3 ! XOR-Modus für Flimmerbox 

MOUSE xxX,yyX,kX ! Maus-Status holen 

xxX=MAX(30,xxX) ! Box-X-Position begrenzen 

yyX=MAX(30,yyX) I Box-Y-Position begrenzen 

BOX xxX-1,yyX-1,xxX+20,yyX+20 I Flimmerbox... 

BOX xxX-1,yyX-1,xxX+20,yyX+20 ! ...zeichnen 
IF MOUSEK=2 ! Rechte Maustaste gedrückt? 

GRAPHMOOE 1 I REPLACE-Modus an 

lupe(xxX-20*6,yyX-20*6,20,20,6,6,1) ! Aufruf 
ENDIF 
LOOP 


1 Anwendungsbeispiel 2 (vorher Beispiel 1 löschen): 

I _ 

PRINT "Maushintergrund (20*20) in Feld LarrXO einiesen." 
PRINT "beliebige Maustaste drücken" 

REPEAT ! Auf... 

UNTIL MOUSEK ! Mausklick warten 

31upe(MOUSEX-20*6,MOUSEY-20*6,20,20,6,6,2) ! Lupe aufrufen 


CLS 

FOR iX=0 TO 20-1 
FOR jX=0 TO 20-1 
COLOR larrX(iX.jX) 
PLOT 100+iX,100+ jX 
NEXT jX 
NEXT iX 


I Bildschirm löschen 
I 20 Zeilen 
! 20 Spalten 
! Punktfarbe setzen 
! Punkt zeichnen 


PROCEDURE lupe(xpX,ypX,brX,hoX,sxX,syX,fIgX) 

1 Für Hi res/Midres/Lowres 
1 XpX = X-Koordinate der Lupenbox 
' YpX = Y-Koordinate der Lupenbox 
1 BrX = Breite des zu vergrößernden Rasters 
1 HoX = Höhe des zu vergrößernden Rasters 
1 SxX = Breite eines Lupen-Rasterpunktes 
1 SyX = Höhe eines Lupen-Rasterpunktes 
1 FlgX= Flag 

1 0 = Lupe wird gezeichnet und kann verändert 

1 werden. Der Original-Ausschnitt bleibt 

1 dabei unverändert. 

1 1 = Lupe wird gezeichnet und kann verändert 

• werden. Der Original-Ausschnitt wird 
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entsprechend der Lupenanderungen ebenfalls 
verändert. 

2 = Es wird nur das Rasterfeld mit den Punktfarben 
des Original-Rasters gefüllt. Die Lupe wird 
nicht gezeichnet. 

Das Rasterfeld LarrXO wird auch bei Modus 0 und 1 gefüllt 
und kann nach Rückkehr aus der Routine ausgewertet werden. 


LOCAL iX,jX,lbS,mxX,nyX,mkX,xp2X,yp2X,pktX 
LOCAL pntX,mxxX,myyX,pxrX,pyrX 

sx%=MIN(sxX,16) I Max. Punktbreite 

xpX=MIN(639,MAX(xpX-10,0)) I Koordinaten der... 

ypX=MIN(255,MAX(ypX-10,0)) ! ...Wiedergabe-Box... 

xp2X=MIN(639,MAX(xpX+brX*sxX+9, 0)) I ...auf Bildschirm... 
yp2X=MIN(255,MAX(ypX+hoX*syX+9,0)) I ...begrenzen 
GET xp%,yp%,xp2X,yp2X,IbS I Hintergrund sichern 

ERASE larrXO I 

DIM bl$((2‘(2-2))"2),larrX(brX.hoX) 

• ! 

IF flgX<>2 I 

FOR iX=0 TO (2'(2-2))‘2 I 
DEFFILL iX,2,8 


16 


Rasterfeld löschen 
I DIM PUT- 
und Rasterfeld 
Lupe zeichnen? 

Alle möglichen Farben 

! Füllmusterfarbe setzen 


pxrX=xpX+4+MlN(brX*sxX,18) I Breite u. Höhe der... 

pyrX=ypX+4+MIN(hoX*syX,18) ! ...PBOX ermitteln 

PBOX xpX+4,ypX+4,pxrX,pyrX ! PBOX vollfarbig zeichnen 

GET xpX+5,ypX+5,xpX+5+15,ypX+5+15,bl$(iX) ! PUT-Box... 

1 I ..speichern (PBOX-Ersatz) 

MID$(bl$(iX),1,4)=MKI$(MAX(1,sxX-1))+MKI$(MAX(1,syX-1)) 

1 PUT-Header an gewünschte PunktgröBe anpassen 
NEXT iX 


DEFFILL 0,0,0 
COLOR 1 

PBOX xpX,ypX,xp2X,yp2X 
BOX xpX,ypX,xp2X,yp2X 
BOX xpX+4,ypX+4,xp2X-4,yp2X-4 
ENDIF 


! DEFFILL weiB 
I COLOR für Rahmenbox 
I Lupenhintergrund löschen 
I Lupenrahmen zeichnen 
I Lupenrahmen zeichnen 


MOLISE mxX,myX,mkX 
FOR iX=0 TO brX-1 
FOR jX=0 TO hoX-1 
pntX=POINT(mxX+iX,myX+ jX) 

IF pntX 

larrX(iX,jX)=pntX 
IF flgX<>2 

PUT xpX+5+iX*sxX,ypX+5+ 
ENDIF 
ENDIF 
NEXT jX 
NEXT iX 
IF flgX<>2 
REPEAT 


! Aktuelle Mauskoordinate 
! Raster-X-Index 
I Raster-Y-Index 
• Punktfarbe ermitteln 
I Punkt gesetzt? 

! Punktfarbe in Feld schreiben 
! Lupe soll gezeichnet werden? 
jX*syX,bl$(pntX) ! Lupenpunkt... 

! ...zeichnen 


! Lupe ist gezeichnet? 
! Lupen-Schleife 


MOUSE mxxX,nryyX,mkX ! Maus-Status holen 


REPEAT ! warten... 

UNTIL MOUSEXomxxX OR MOUSEYomyyX OR MOUSEK 
1 ! ...auf Mausaktion 
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IF mxxX>xpX+5 AND mxxX<xpX+4+brX*sxX ! X-Maus in der Lupe? 
IF myyX>ypX+5 AND myyX<ypX+4+hoX*syX ! Y-Maus in der Lupe? 
mxxX=INT((mxxX-(xpX+5))/sxX) I Koordinaten auf... 
myyX=INT((myyX-(ypX+5))/syX) I ...Rasterindex umrechnen 
IF mkX=1 ! Linke Maustaste gedrückt? 

IF flgX=1 I Originalpunkt ändern? 

PLOT mxX+mxxX,myX+rrr/yX ! Darm Punkt setzen 
ENDIF 

larrX(mxx%,myyX)=pktX I Rasterfeld aktualisieren 
PUT xpX+5+mxxX*sxX,ypX+5+myyX*syX,blS(pktX) 

1 I Lupenpunkt setzen 

ELSE 1 linke Maustaste ist aus! 

pktX=POINT(xpX+5+mxxX*sxX,ypX+5+myyX*syX)-1 
1 I Punkt färbe un 1 vermindern 


IF pktX<0 I Farbindex < 0? 

pktX=MAX(1,(2‘(2-2))‘2-1) ! Index auf Maximum 
ENDIF 


COLOR pktX 
ENDIF 
ENDIF 
ENDIF 

UNTIL mkX=2 
PAUSE 5 
ENDIF 

ERASE bl$() 

PUT xpX.ypX, IbS 
RETURN 


I Originalpunktfarbe setzen 


! Rechte Maustaste gedrückt? 
! Kleine Klick-Pause 

! PUT-Box-Feld löschen 
! Hintergrund restaurieren 


CIRCLE, PCIRCLE { CI, PC } Kreis(bogen); zeichnen 


[P]CIRCLE X cent, Y cent, Radius 

"X_cent/Y_cent" bestimmen den Kreismittelpunkt. "Radius" ist 
der halbe Kreisdurchmesser. 

CIRCLE zeichnet einen Kreis um den Mittelpunkt X_cent, 
Y_cent mit dem angegebenen Radius. Dieser darf momentan 
nur Werte bis zu 511 annehmen, weil der Blitter nicht in der 
Lage ist, größere Grafikflächen zu bearbeiten. 
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ELLIPSE, PELUPSE { ELL, PE } Ellipse(nbogen) zeichnen 


[P]ELLIPSE Xcent,Ycent,Xrad,Yrad 

"Xrad" ist der Ellipsenradius in X-Richtung und "Yrad” der in 
Y-Richtung. "Xcent/Ycent" legt den Ellipsenmittelpunkt fest. 


Flächen mit Muster füllen 


FILL { Fl} 


FILL Xpos.Ypos [.Farbe] 

"Xpos/Ypos" gibt die Lage des Bildschirmpunktes an, von dem 
aus sich der Füllvorgang ausbreitet, bis er an geschlossene 
Grenzen stößt, also an Punkte mit einer anderen Farbe als der 
Punkt (Xpos,Ypos). 

FILL ist ggf. mit Vorsicht zu genießen. Dies hat zwei Gründe. 
Der eine ist, daß das ausbreitende Füllmuster die kleinsten (1 
Pixel) Schlupfwinkel entdeckt, durch die es sich weiter aus- 
breiten kann. Das führt manchmal dazu, daß Bereiche, die nicht 
gefüllt werden sollen, durch den FILL-Befehl zunichte gemacht 
werden und es dann oft unmöglich ist, diesen Bereich wieder 
vom unerwünschten Füllmuster zu säubern. 

Auf der anderen Seite ist die Füll-Funktion besonders schnell, 
weil sie vom Blitter unterstützt wird, der in Windeseile Bereiche 
von bis zu 1024 x 1024 Punkten innerhalb nur einer Sekunde 
beschreiben kann. Diese Geschwindigkeit kann nur dadurch ge¬ 
bremst werden, daß Sie ein so kompliziertes Füll-Muster ver¬ 
wenden, daß der Amiga erst einmal ein bißchen rechnen muß. 

In Version V3.0 kann der Füllvorgang durch die GFA-Break- 
Funktion abgebrochen werden. Die oben beschriebenen V2.xx- 
Probleme lassen sich also - Ostrowski macht es möglich - durch 
die Tastenkombination <ControlxShiftxAlternate> weitest- 
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gehend unterbinden. Die Abbruch-Tasten müssen dabei gedrückt 
gehalten werden, da intern erst die aktuelle Füll-Sequenz be¬ 
endet wird. 


In Version V3.0, die uns für den Amiga vorliegt, kann optional 
mit dem Parameter "Farbe" ein Farbwert angegeben werden. Es 
wird dann nur diese Farbe als Füllbegrenzung gewertet. Alle 
anderen Punkte werden gefüllt. Liegt z.B. der Bildpunkt 
Xpos/Ypos auf einer Linie, wird der Füllvorgang nur auf dieser 
Linie durchgeführt. 


Bei eingeschaltetem Clipping (siehe CLIP) wird generell nur bis 
an die Grenzen des CLIP-Ausschnitts gefüllt. Beispiel (nur 
Lowres): 


OPENS 2,0,0,320,256,3,0 
OPENU 2,0,0,320,256,0,15,2 
DEFFILL 7,2,6 
PBOX 10,10,310,190 
DEFFILL 11,2,8 
PBOX 90,40,180,90 
FOR i%=1 TO 15 

DEFFILL iX,2,8 

PC IRCLE RANDOM(80)+85,RANDOM(50)+45,10 
NEXT i% 

DEFFILL 4,2,8 
FILL 176,44,7 
CLOSEU 2 
CLOSES 2 


POLYFILL { POLYF } Polygon 2 eichnen, gefüllt 

POLYFILL Pkte.XpO.YpO [OFFSET Xdiff.Ydiff] 


Es gelten die gleichen Ausführungen wie zu POLYLINE, nur 
daß zusätzlich die zwischen den einzelnen Linien liegenden 
Flächen mit dem eingestellten Füllmuster ausgefüllt werden. 


Ein Beispiel finden Sie unter POLYLINE. 




240 


Das große GFA-BASIC-Buch 


TEXT { T } Text im Grafikmodus ausgeben 


TEXT Xt,Yt,"Text" 

"Text" kann sowohl direkt als Text, als String-Variable oder als 
zusammengesetzter Textausdruck (A$+Str$("l")) angegeben wer¬ 
den. "Xt,Yt" steht für den Bildschirmpunkt, an den der Text 
linksbündig angelegt wird. Die Ausgaben beschränken sich auf 
den Bildschirm. 


Der zur Ausrichtung des Textes ausschlaggebende Punkt ist im¬ 
mer der, der bei normaler Lage des Textes (waagerecht von links 
nach rechts) in der Zeichenbox des ersten Zeichens (auch bei 
Leerzeichen) links unten liegt. Mit diesem Punkt wird der Text 
generell an die angegebene X/Y-Position angelegt. Beispiel: 


DEFFILL ,2,1 
PBOX 20,5,300,120 
DEFTEXT 1,16,0,16 
FOR iX=1 TO 4 
GRAPHMODE i% 

txS="TEXT (normal) GRAPHMOOE "+STR$(iX) 
TEXT 50,15+i%*20,tx$ 

NEXT i% 


9.3 Strich-/Punktgrafik 


DRAW { DR } Punkte zeichnen und verbinden 


DRAW TO Xpos.Ypos 

DRAW XI,Y1 [TO X2~,Y2 [TO X3,Y3...]] 

Die erste Syntax-Variante verbindet den durch Xpos/Ypos be- 
zeichneten Punkt mit dem zuletzt durch DRAW, PLOT oder 
LINE gezeichneten Grafik-Punkt. Die zweite Variante zeichnet 
einen beliebig langen Linienzug durch die angegebene Punkte- 
Kette. Wird die optionale Punkte-Kette weggelassen (DRAW 
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X1,Y1), dann wird an der angegebenen Position ein einzelner 
Punkt gesetzt (vgl. PLOT). 

Beispiel: Damit Sie sich nicht soviel Arbeit machen müssen, die 
einzelnen Punktkoordinaten einer Kette einzutippen, folgt nun 
ein kleines Hilfsprogramm. Wenn Sie es gestartet haben, können 
Sie mit einem Druck auf die linke Maustaste einzelne Punkte 
zeichnen. Es sind zwei Arrays dimensioniert, die die jeweilige 
X- und Y-Koordinate des gerade gezeichneten Punktes fest- 
halten. Jedes dieser beiden Arrays hat 1000 Elemente, d.h. daß 
Sie maximal 1000 Punkte zeichnen können. Wenn Sie diese 
Punkteanzahl erreicht haben oder die rechte Maustaste drücken, 
werden die beiden Arrays in Form von DATA-Zeilen unter dem 
Namen DRAW.LST auf der RAM-Disk abgespeichert. 

Anschließend wird das erste Programm beendet. Laden Sie nun 
mit Merge die geschriebene DATA-Datei in den Arbeitsspeicher 
und starten Sie das zweite Programm. Sie werden sehen, daß Ihre 
Zeichnung nun anhand der DATA-Zeilen und des DRAW-Be- 
fehls neu auf den Bildschirm gebracht wird. 


Programm 1: 


DIM px(1000),py(1000) ! 

DO I 

MOUSE x,y,k ! 

IF k=1 I 

PAUSE 1 ! 

DRAU X,y ! 

INC count ! 

px(count)=x ! 

py(count)=y I 


DIM Punkte-Speicher 
Eingabe-Schleife 
Haus-Status holen 
Linke Maustaste gedrückt? 
Kleine Klickpause 
Punkt zeichnen 
Punktezähler +1 
X-Koordinate speichern 
Y-Koordinate speichern 


ENDIF 

EXIT IF k=2 OR count=1000 ! 1000 Punkte erreicht oder... 
LOOP ! ...rechte Maustaste gedrückt? 

OPEN "0",#1,"RAM:DRAU.LST" ! Datei öffnen 

PRINT #1;"D.rawkoos:";CHR$(13) ! DATA-Label schreiben 
FOR j=1 TO 100 ! 100 DATA-Zeilen 

PRINT #1;"D ! DATA schreiben 

FOR i=1 TO 10 I 10 Koordinatenpaare je Zeile 

INC ci I Indexzähler +1 

PRINT #1;STR$(px(ci";STR$(py(ci)); ! X/Y schreiben 
EXIT IF ci=>count ! Abbruch, wenn Anzahl < 1000 

IF i<10 I Zeilenende noch nicht erreicht? 

PRINT #1; 11 ,I Dann Komma schreiben 
ENDIF 
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NEXT i 

I Nächstes Koordinatenpaar 

PRINT #1;CHR$(13) 

1 CR-Zeilenende schreiben 

EXIT IF ci=>count 

! Abbruch, wenn Anzahl < 1000 

NEXT j 

1 Nächste DATA-Zeile 

PRINT #1;"0 STR*< 1111) 

! DATA-Encfoiarke schreiben 

CLOSE #1 

! Datei schließen 

EDIT 

! Programmende 

Programm 2: 

DIM px(1000),py(1000) 

! DIM Punkte-Speicher 

RESTORE d.rawkoos 

! DATA-Zeiger setzen 

READ px(1),py(1) 

! 1. Koordinatenpaar lesen 

PLOT px(1),py(1) 

I und zeichnen 

FOR i=2 TO 1000 

I Restliche Koordinaten 

READ px( i ),py(i) 

I Lesen 

' Pbox Px(I),Py(I),Px(I)+10,Py(I)+10 

1 Ersetzen Sie die Zeile 

mit dem Drau-Befehl durch diese 

1 Pbox-Zeile, und schon 

haben Sie einen neuen Effekt. 

DRAU TO px(i),py(i) 

! Und zeichnen 

EXIT IF px<i)=1111 

! Abbruch, wenn Ende erreicht 

NEXT i 

! Nächstes Paar 


DRAW $ { DR } Plotter-(Turtle-)Grafik 

DRAW Def$[,Const[,"Def'[,Var[,...]]]] 

Erlaubt eine Plotter-Simulation auf dem Bildschirm (LOGO- 
Turtle-Grafik). In Def$/"Def" können wahlweise als alpha¬ 
numerischer Ausdruck, als String-Variable oder Textkonstante 
Turtle-Kommandos angegeben werden. Als Kommandos sind 
folgende Kürzel vorgesehen: 

fd n (forward) Bewege Stift n Pixel vorwärts. 

bk n (backward) Bewege Stift n Pixel rückwärts. 

Skalierung aller bei fd und bk angegeben Werte in 
X-Richtung mit dem Wert n. 


sx n 
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sy n 

Skalierung aller bei fd und bk angegeben Werte in 
Y-Richtung mit dem Wert n. 

sx 0 

X-Skalierung ausschalten. 

sy 0 

Y-Skalierung ausschalten. 

It n 

(left turn) drehe Stift um n Grad nach links. 

rt n 

(right turn) drehe Stift um n Grad nach rechts. 

tt n 

(turn to) setze Stift absolut in Richtung n Grad 
(Gradeinteilung siehe SETDRAW). 

ma x,y 

(move absolute) Bewege Stift (pu) auf absolute 
Position x/y (siehe auch SETDRAW). 

da x,y 

(draw absolute) Bewege Stift (pd) auf absolute 
Position x/y, und zeichne dabei eine Linie. 

mr x,y 

(move relative) Bewege Stift (pu) auf Position 
x/y, relativ zur aktuelle Turtle-Position. 

dr x,y 

(draw relative) Bewege Stift (pd) auf Position x/y, 
relativ zur aktuellen Turtle-Position, und zeichne 
dabei eine Linie. 

co n 

(color) Linienfarbe n einstellen (siehe COLOR). 

pu 

(pen up) Stift anheben (Stift schwebt). 

Pd 

(pen down) Stift aufsetzen. 


(n enthält den jeweils anzugebenden Wert, x,y die betreffenden 
Koordinaten) 

Eine DRAW-Zeile könnte folgendermaßen zusammengesetzt sein: 

Draw "ma",XX,YX, ,, tt",Int(10.52),"pd",AS,Len(BS),' , lt60 fcß.4" 

Die Angabe der Entfernungen, Winkel und Koordinaten etc. 
kann ebenfalls wahlweise als Ausdruck, als Konstante, als 
Variable oder innerhalb von Def$/"DeP” erfolgen. Dabei ist die 
Anzahl der durch Komma getrennten Einzelanweisungen belie- 
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big (max. Eingabezeilenlänge = 255 Zeichen). Das Komma kann 
in den meisten Fällen auch vernachlässigt werden. Beispiel: 

GRAPHMOOE 3 I XO«-Modus 

FOR iX=0 TO 640 STEP 5 I Einmal von links nach rechts 

FOR jX=0 TO 1 ! Zweimal hintereinander 

SETORAU 100+iX,170+COS(iX*PI/180)*50,iX+90 ! Turtle setzen 
DRAU »pd rt90 fd20 rt90 fd30 lt45 fd14.1 lt45 fd40» 

DRAU »lt45 fd14.1 U45 fdIO U90 fd20 lt90 fdIO rt90» 

DRAU "fd20 rt90 fd30 rt90 fd60 rt90 fd40 rt45 fd28.3" 

DRAU "rt45 fd60 rt45 fd28.3 rt45 fd40» 

DRAU »pu fd30 pd fd40 rt90 fd20 rt90 fd30 lt45 fd14.1» 

DRAU M lt45 fdIO lt90 fd20 rt90 fd20 rt90 fd20 lt90 fd40" 

DRAU M rt90 fd20 rt90 fd80 rt45 fd28.3 rt45 fd40» 

DRAU "pu fd30 pd fd30 rt45 fd28.3 rt45 fd80 rt90 fd20» 

DRAU "rt90 fd40 U90 fd30 lt90 fd40 rt90 fd20 rt90 fd80" 

DRAU "rt45 fd28.3 pu rt135 fd30 pd fdIO lt90 fd30 lt90" 

DRAU "fdIO lt45 fd14.1 lt45 fdIO U45 fd14.1 pu» 

NEXT jX 
NEXT iX 


D R AW 0 PIotter-(Turtle-)Attribute liefern 


Var=DRAW(lndex) 

Liefert Informationen über die aktuellen DRAW-Turtle-Attri- 
bute. 

Index: 

O = Aktuelle X-Poeition 

1 = Aktuelle Y-Position 

2 = Aktuell eingestellter Winkel (in Grad) 

3 = Aktuelle X-Skalierung 

4 = Aktuelle Y-Skalierung 

5 = Pen-Flag (-1 = pd/0 - pu) 
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Mit Index 0 bis 4 werden Fließkommawerte geliefert. Beispiel: 
Aus der Sprache LOGO kennen Sie vielleicht die Turtle (Schild¬ 
kröte), die in den meisten Fällen als Pfeil dargestellt wird. Mit 
den folgenden beiden Prozeduren können Sie diese optische 
Turtle simulieren. Die Prozedur Showt speichert den aktuellen 
Hintergrund unter der Turtle und zeichnet einen Pfeil auf die 
aktuelle Position. Mit Hidet wird der Hintergrund wieder re¬ 
stauriert und die Turtle damit gelöscht. 


SETDRAU 20,20,90 ! Turtle setzen 

PRINT "TURTLE-Steuerung per Haustasten" 
showt I Turtle zeigen 

DO 


dxmax=MAX(15,MIN(62A,DRAU(0))) I Immer schön.. 
dymax=MAX(15,MIN(240,DRAU(1))) I ...im Bild... 
SETDRAU dxmax,dymax,DRAU(2) ! ...bleiben 


hidet 

DRAU "fd2" 
showt 


! Turtle verstecken 
! 2 Pixel zeichnen 
I Turtle zeigen 


IF MOUSEK=1 
DRAU "lt2" 

ELSE IF MOUSEK=2 
DRAU "rt2" 

END IF 
LOOP 


! Linke Maustaste? 

! Dann 2 Grad linksrum 
! Rechte Maustaste? 

! Dann 2 Grad rechtsrum 


PROCEDURE showt ! TURTLE-Proc 

LOCAL xtrtl,ytrtI,xtrtl2,ytrtl2,wtrtl,ptrtl 
xtrtl=DRAU(0) ! Aktuelle X-Position? 

ytrtl=DRAU(1) ! Aktuelle Y-Position? 

xtrtl1=MAX(0,MIN(639,xtrtl-15)) !-. GET- 

ytrtl1=MAX(0,MIN(255,ytrtl-15)) ! Bereich.. 

xtrtl2=MAX(0,MIN(639,xtrtl1+30)) ! eingrenzen 

ytrtl2=MAX(0,MIN(255,ytrt11+30))!-• 

wtrtl=DRAU(2) ! Aktueller Uinkel? 

ptrtlX=DRAU(5) ! Aktueller Pen-Status 

GET xtrtll.ytrtll,xtrtl2,ytrtl2,trtlbckgrndS 
1 ! Hintergrund speichern 

DRAU "pd 11120 fdl 1 rt150 fd20 rt120 fd20 rt150 fdll" 

1 I Turtle malen 

SETDRAU xtrtl,ytrtl.wtrtl I Alten Turtle-Status setzen 

IF ptrtlX=0 ! Stift war vorher oben? 

DRAU "pu" ! Dann wieder hochsetzen 

ENDIF 
RETURN 


PROCEDURE hidet ! Turtle löschen 

PUT xtrtll,ytrtll,trtlbckgrndS 
RETURN 
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LINE { LI} Linie zeichnen 


LINE X1,Y1,X2,X2 


Die Bildschirm-Koordinaten XI,Y1 und X2,Y2 werden durch 
eine gerade Linie im aktuellen - zuletzt mit DEFLINE - einge¬ 
stellten Linienstatus gezeichnet. Beispiel: 


FOR jX=1 TO 20 
LINE 10,jX*10,100,jX*10 
LINE jX*10,10,jX*10,100 
NEXT jX 


Punkt zeichnen 


PLOT {PL} 


PLOT Xpos.Ypos 

Xpos/Ypos bestimmt die Lage eines Bildschirm-Punktes, der 
gesetzt werden soll. 


POINTQ Biidschirmpunkt-Farbwert ermitteln 


Var=POINT(Xpos,Ypos) 


Liefert die Nummer des Farbregisters, aus dem der durch 
Xpos/Ypos bezeichnete Bildschirm-Punkt seine Farbe bezieht 
(siehe COLOR). Beispiel: 


tX=TIMER 

DEFFILL ,2,2 ! DEFFILL hellgrau 

PBOX 10,10,100,100 ! Kleine PBOX 

FOR xX=10 TO 100 ! Alle Punkte in X-Richtung 

FOR yX=10 TO 100 ! Alle Punkte in Y-Richtung 

IF POINT(xX,yX)=0 ! Testen, ob nicht gesetzt 
PLOT 110+xX,yX ! Ja, dann setzen 
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ENDIF 

NEXT y% ! Nächste Spalte 

NEXT x% ! Nächste Zeile 

PRINT (TIMER-tX)/200 M, Sek." 


Das Ergebnis des Programms ist das Negativ der zuerst gezeich¬ 
neten PBOX, da statt jedes Punktes, der in der PBOX weiß ist, 
in der neuen Box ein Punkt gesetzt wird. 


POLYLINE { POL } Polygon zeichnen 


POLYLINE Pkte.XpO.YpO [OFFSET Xdiff,Ydiff] 

Die POLY-Befehle (POLYFILL, POLYLINE) verwenden jeweils 
die Füll-, Linien- oder Marker-Attribute, die vorher mit 
DEFLINE, DEFFILL oder DEFMARK vorgenommen wurden. 

In den Integer-Feldern Xp() und Yp() sind der Reihe nach so 
viele Koordinatenpaare anzugeben, wie Polygon-Ecken vorge¬ 
sehen sind. Der erste zu definierende Punkt des Vielecks ist im 
Element 0 (OPTION BASE 0) bzw. im Element 1 (OPTION 
BASE 1) der Felder abzulegen, da die Inhalte der ersten beiden 
Feldelemente als Koordinatenwerte des ersten Punktes verwendet 
werden. 

Die Anzahl der zu berücksichtigenden Polygon-Eckpunkte wird 
in Pkte übergeben. Maximal dürfen 128 Punkte angegeben wer¬ 
den. Soll mit POLYLINE ein geschlossener Linienzug gezeichnet 
werden, muß der letzte Punkt mit dem ersten identisch sein 
(Xp(n)=Xp(0)/Yp(n)=Yp(0)). 

Um sich nicht jedesmal die Arbeit machen zu müssen, die Ko¬ 
ordinatenpaare neu zu bestimmen, sobald dieselbe Figur an einer 
anderen Stelle gezeichnet werden soll, kann mit dem Zusatz¬ 
befehl OFFSET, der ggf. den POLY-Befehlen angehängt wird, 
in X- und in Y-Richtung ein Versatz der Figur um einen be¬ 
stimmten Betrag (negativ oder positiv) bewirkt werden. Beispiel: 
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DIM x(10),y(10) 

GRAPHMOOE 3 
DO 

FOR i=0 TO 9 
x( i)=RANDOM(100)+56*i 
y( i)=RANDOM(128)+40 
NEXT i 
x( i)=x(0) 
y(i)=y(0) 
bb=INT(RND*24) 
cc=RAND0M<5)+1 
DEFFILL 1,2,bb 
DEFLINE cc 
POLYFILL 9,x(),yO 
FOR jX=1 TO 2 

FOR iX=3 TO 99 STEP 6 
POLYL 
NEXT iX 
NEXT jX 

POLYFILL 9,x(),y() 

LOOP 


I DIH Punkt-Felder 
I XOR-Modus 
! Endlos-Schleife 
! 10 Punkte 

! Zufällige X-Koordinate 
! Zufällige Y-Koordinate 

I Letztes X = 1. X 
! Letztes Y = 1. Y 
I Zufälliges Füllmuster 
! Zufälliger Linientyp 
I Muster-DEF 
I Linien-DEF 
! Fläche zeichnen 
I 2 mal 
I 16 Offsets 


POLYL INE 11,x(),yO OFFSET iX,iX I Vieleck zeichnen 

I Nächstes Offset 

! Fläche löschen 


SETDRAW { SETD } DRAW-Turtle positionieren 


SETDRAW Xpos,Ypos,Grad 


Setzt den Stift für Plotter-(Turtle-)Grafik auf die absolute Posi¬ 
tion Xpos,Ypos in die Zeichenrichtung Grad (siehe auch DRAW 
$). 

Grad: 


0 / 360 

270 - Xpos/Ypos - 90 

180 


Ein Beispiel hierzu finden Sie unter DRAWQ. 
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9.4 Grafikoperationen 



CLIP Xpos.Ypos,Breite,Höhe [OFFSET X,Y] 

CLIP XI.Yo TO Xr.Yu [OFFSET X,Y] 

CLIP #Windownummer [OFFSET X,Y] 

CLIP OFFSET X,Y 
CLIP OFF 

Ermöglicht die Bestimmung eines Bildschirmrechtecks, auf das 
dann sämtliche Grafikausgaben begrenzt werden (außer PUT) 
bzw. die Festlegung des Koordinaten-Nullpunktes für Grafik¬ 
ausgaben. Alle Teile von Grafikausgaben (LINE, BOX, PBOX, 
DRAW etc.), die die Grenzen dieses Rechtecks überschreiten, 
werden an dessen Grenzen abgeschnitten. 

Syntax-Variante 1: Xpos und Ypos beschreiben die Position 

sowie Breite und Höhe des CLIP- 
Rechtecks. 

Syntax-Variante 2: XI und Yo beschreiben die Position der 

linken oberen Ecke des CLIP-Rechtecks. 
Xr und Yu (hinter TO) beschreiben die 
Position seiner rechten unteren Ecke. 

Syntax-Variante 3: #Windownummer enthält die GFA- 

Fensternummer, dessen Arbeitsbereichs- 
Position und -Ausmaße für das CLIP- 
Rechteck gelten sollen. 
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Syntax-Variante 4: X und Y legen den Koordinaten-Ur- 

sprung (in Relation zur linken oberen 
Bildschirmecke) für künftige Grafikaus¬ 
gaben fest (außer PUT). OFFSET X,Y 
kann auch optional an die vorangegan¬ 
genen CLIP-Befehlsvarianten angehängt 
werden, wodurch ebenfalls der Grafik- 
Nullpunkt bestimmt wird. 

Syntax-Variante 5: CLIP OFF schaltet aktuelles Clipping 

wieder aus. Beispiel: 

DEFFILL ,2,4 ! DEFFILL grau 

PBOX 2,2,218,118 ! Hintergrund-Fläche zeichnen 

DEFFILL ,2,2 ! DEFFILL hellgrau 

CLIP 10,10,100,100 ! Ab 10/10 100 Pixel in jeder 

1 I Richtung als Clip-Box 

PCIRCLE 60,60,60 ! Gefüllten Kreis zeichnen 

CLIP 110,10 TO 210,110 OFFSET 100,10 

1 Bildschirmbereich mit den Koordinaten 110/10 und 210/110 
1 als Clip-Bereich anmelden und Nullpunkt auf 100/10 setzen. 

PCIRCLE 60,50,60 ! Gefüllten Kreis zeichnen 

CLIP OFF ! Clipping ausschalten 

CLIP OFFSET 0,0 ! Grafik-Nullpunkt wieder auf 0/0 setzen 

BOX 10,10,210,110 I Box un die beiden Kreis-Ausschnitte 1 


GET Bildschirmbereich speichern 

GETX_links,Y_oben,X_rechts,Y_unten,Var$ 

Durch GET (nicht zu verwechseln mit dem Diskettenbefehl 
GET#) wird mit den Koordinatenangaben X_links/Y_oben und 
X_rechts/Y_unten ein Bildschirmausschnitt definiert, der als 
Bitmuster in Var$ eingelesen wird. Die angegebenen Eck-Koor¬ 
dinaten müssen innerhalb des Bildschirmbereichs liegen, da sonst 
der Interpreter den Befehl nicht ausführt. 

Diese sparsame Beschreibung läßt nicht ahnen, was mit diesem 
Befehl alles machbar ist. Dies ist für die Grafik-Programmie¬ 
rung einer der wichtigsten Befehle überhaupt. 
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Beispiel: Und wieder mal ein "kleines" Demo-Listing. Es produ¬ 
ziert eines der so heißbegehrten Pop-Up-Menüs. Dies sind 
Menüs, die nicht - wie vom Intuition her gewohnt - vom oberen 
Bildrand "herunterfallen" bzw. "heruntergezogen" werden (Drop- 
Down-Menü, bzw. Pull-Down-Menü), sondern an der Bild¬ 
schirmposition erscheinen, an der sie benötigt werden, nämlich 
unter dem Mauszeiger. 

Dabei kann ein beliebiger Bildschirmbereich angegeben werden, 
innerhalb dessen das Menü dargestellt werden soll bzw. der als 
Reaktionsbereich fungiert. Ist der Mauszeiger zum Zeitpunkt des 
Aufrufs innerhalb dieses Bereichs, so bleibt das Menü unter dem 
Mauszeiger stehen. Wird ein Menüpunkt angewählt oder verläßt 
der Mauszeiger den Bereich wieder (auch ohne Auswahl), so 
wird das Menü wieder gelöscht. Unter welchen Bedingungen Sie 
den Menü-Aufruf zulassen, bleibt Ihnen überlassen. 

Bei der Einrichtung des Menüs habe ich versucht, weitestgehend 
den Konventionen der GFA-PullDown-Menü-Definition Rech¬ 
nung zu tragen. So wird z.B. auch hier ein Menüzeilentext, der 
mit einem Bindestrich beginnt, als unwählbar (grau) dargestellt. 
Der Punkt ist dann von der Auswahl ausgeschlossen. 

Ein wesentlicher Unterschied ist, daß hier aus einem DATA- 
Block, der die einzelnen Zeilentexte enthält, über einen wähl¬ 
baren Startindex beliebige Menüteile ausgeschnitten und ange¬ 
zeigt werden können. Außerdem ist die Anzeige des 
Menüzeilentextes auf eine Pixel-Breite von 100 Pixel 
(Hires/Midres) bzw. 50 Pixel (Lowres) beschränkt. Der Text 
wird per TEXT auf diese Breite formatiert und in den Menü¬ 
punkt eingesetzt. 

startX=1 I Erst ab 2. Menüpunkt darstellen 

anzahlX=20 ! Insgesamt 6 Menüpunkte darstellen 

DIM feld$(startX+anzahlX) ! Textfeld einrichten. Nur so viele 
1 Menüpunkt-Elemente, wie zur Demo nötig sind. 

RESTORE m.datas ! Datazeiger setzen 

FOR iX=1 TO startX+anzahlX ! Menütext-Datas 
READ feld$(iX) ! Einlesen 

PRINT fetd$(iX) 

NEXT iX 
m.datas: 
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DATA —.Speichern, Laden, Löschen, Kopieren,.,QUIT 

DATA — .Speichern, Laden, Löschen, Kopieren,.,QUIT 

DATA —, Spei ehern, Laden, Löschen, Kopi eren,.,QUIT 


Der Einfachheit halber habe ich hier dreimal dieselben Texte 
verwendet, um den folgenden Block der IF..ENDIF-Abfragen in 
Grenzen zu halten, ln V3.0 können diese Abfragen auch leicht 
durch IF..ELSE IF oder SELECT..CASE vereinfacht werden. 

Im folgenden Listing mußten wieder einige Programmzeilen aus 
drucktechnischen Gründen getrennt werden. Die drei Trenn¬ 
punkte am Zeilenende und Zeilenbeginn gehören nicht zur 
Zeilensyntax. 

BOX 50,50,300,200 
DO 

REPEAT 

IF MOUSEX>50 AND M0USEX<300 AND MOUSEY>50 AND MOUSEY<399 
S>menue(startX,anzahlX,50,50,300,255,*feldS( ),*indexX) 

ENDIF 

1 Ueitere Aufruf-Variante: 

1 If Mousek=2 

1 S)Menue(StartX,AnzahlX,0,0,639,255, *Feld$(),*IndexX) 

1 Endif 

UNTIL indexX>0 ! Or Mousek 

IF feld$(indexX+startX)="Speichern" 
feld$(indexX+startX)="-Speichern" 
feld$(indexX+startX+1)="Laden" 

PRINT AT(1,1);"gewählt: Speichern " 

ENDIF 

IF feld$(indexX+startX)="Laden" 
feid${indexX+startX-1)="Speiehern" 
feld$(indexX+startX)="-Laden" 

PRINT AT(1,1),-"gewählt: Laden " 

ENDIF 

IF feld$(indexX+startX)="Löschen" 

PRINT AT(1,1),-"gewählt: Löschen " 

ENDIF 

IF feld$(indexX+startX)="Kopieren" 
feld$(indexX+startX)=CHR$(8)+" Kopieren" 

PRINT AT(1,1);"gewählt: Kopieren “ 

GOTO label 
ENDIF 

IF feld$(indexX+startX)=CHR$(8)+" Kopieren" 
feld$(indexX+startX)="Kopieren" 

PRINT AT(1,1).-"gewählt: Kopieren « 

ENDIF 

IF feld$(indexX+startX)="QUIT" 

PRINT AT(1,1);"gewählt: Quit " 
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END IF 
label: 

PRINT "Menüindex : ";indexX 

EXIT IF fetd$(indexX+startX)="QUIT" 

CLR indexX 
LOOP 

I 

PROCEDURE menue(pm1X,mmxX,mxlX,myoX,mxrX,myuX,f .adrX, v.adrX) 

' Pop-Up-Menü 

I 

' PmIX = Index des Menüpunktes (Textfeldindex), der an 
1 erster Stelle erscheinen soll. Die Texte müssen 

1 ab Index 0 im Textfeld stehen. 

1 MmxX = Anzahl der Menüpunkte, die ab PmIX dargestellt 
1 werden sollen. Der Menü-Index liegt immer im 

1 Bereich von 1 bis MmxX. 

' MxIX, MyoX, MxrX, MyuX 

1 = Rahmenkoordinaten, innerhalb derer das Menü 

> dargestellt werden soll. Paßt das Menü nicht 

' in den Rahmen, liegt die rechte untere Ecke 

1 des Menüs immer auf der rechten unteren Ecke 

• des Rahmens. 

1 F.adrX = Pointer auf das Textfeld. 

• V.adrX = Pointer auf eine Rückgabevariable. 

1 Die Rückgabevariable enthält nach Abschluß den 

■ Index des gewählten Menüpunktes. Um den dazugehörigen 

1 Textfeld-Index zu ermitteln, muß zum Menüindex 'PmIX 1 

1 addiert werden. 

LOCAL mmen$,mskX,m.keyS,yiX,yi2X,mrsX,m.iX,IsrX 

LOCAL mxl2X,mxr2X,myo2X,myu2X 

DIM dum$(1) I Lokales Swap-Feld 

SWAP *f.adrX,dum$() I Felder swappen 

mxl2X=MIN(MAX(MOUSEX-68,mxlX),mxrX-136) 

mxr2X=mxl2X+136 

myo2X=MIN(MAX(M0USEY-6,myoX),myuX-18+mmxX*18) 
myu2X=myo2X+(18+mmxX*18) 
mxl%=MIN(mxlX,mxl2X) 
myo%=MIN(myoX,myo2X) 

I 

1 Die letzten 6 Zeilen haben die schwierige Aufgabe, den 
1 gewünschten Darstellungsbereich des Menüs und die Position 
1 der Maus so miteinander zu verknüpfen, daß das Menü - 
' wenn möglich - unter dem Mauszeiger, aber nicht außerhalb 
1 des gewählten Rahmens dargestellt wird. 

I 

GET MAX(0,mxl2X),MAX(0,myo2X),MIN(639,mxr2X),MIN(myu2X,255),mmen$ 

1 Menü-Hintergrund speichern 

DEFFILL 1,0,0 ! DEFFILL weiß 

GRAPHMOOE 1 ! Replace-Modus 

PBOX mxl2X,myo2X,mxr2X,myu2X !-. 

BOX mxl2X+1,myo2X+1,mxr2X-1,myu2X-1 
DEFFILL 1,2,4 ! DEFFILL grau 

PBOX mxl2X+6,myo2X+6,mxr2X-6,myu2X-6 
DEFFILL 1,0,0 ! DEFFILL weiß 
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FOR m.iX=1 TO mmxX I Alle Menü-Zeilen 

GRAPHMODE 1 ! Replace-Modus 

PBOX mxl2X+13,myo2X-6+m. iX*18,mxr2X-13,n»yo2X+6+m. iX* 18 
GRAPHMOOE 2 ! Transparent-Modus 

IF LEFT$(dum$(m. iX+pmlX))=••-“ I 1.Zeichen = - ? - Menü 

TEXT 

mxl2X+20,myo2X+3+m. iX*18,RIGHT$(dum$(m. iX+pm1X),LEN(dum$(m. iX+pm1X))-1) 
ELSE I Aktive Zeile I 

TEXT mxl2X+20,myo2X+3+m. iX*18-1 ,duii$(m. iX+pmlX) 

ENDIF 

! Nächste Zeile - 


I DEFMOUSE Zeigefinger 
! DEFFILL schwarz 
I XOR-Modus 
I V3.0 : P-Rahmen aus 
I Auswahl-Schleife >— 


NEXT m.iX 
DEFMOUSE 3 
DEFFILL 1,1,1 
GRAPHMOOE 3 
BOUNDARY 0 
REPEAT 

ON MENU I Ereignis-Überwachung 

MOUSE xko.xX,yko.yX,nfekX ! Maus-Status holen 

yiX=INT((yko.yX-(myo2X-8))/18) 

1 ! Zeilen-Index berechnen 

IF xko.xX>mxl2X+12 AND yiX>0 AND xko.xX<mxr2X-13 AND yiX<=(nmxX) 

1 Maus auf einem Menüpunkt? 

IF LEFT$(dum$(yiX+pm1X))<>"-" ! Menüpunkt aktiv? 

PBOX mxl2X+14,myo2X-5+yiX*18-1,mxr2X-14+1,myo2X+5+yiX*18 
ENDIF 

REPEAT ! Mausbewegung abwarten >-. 

yi2X=INT((M0USEY-Onyo2X-8))/18) 

1 ! Ggfs, neuen Index holen 

mskX=M0USEK ! Maustasten-Status holen 

m.keyS=INKEY$ ! Tastatur abfragen 

ON MENU ! Ereignis-Überwachung 

UNTIL MOUSEX<mxl2X+12 OR MOUSEX>mxr2X-13 OR yiX<>yi2X OR mskX>0 OR 
m.key$>"" !<-• | 

IF LEFT$(dum$(yiX+pm1X))<>"-" ! Menüpunkt aktiv? 

PBOX mxl2X+14,myo2X-5+yiX*18-1,mxr2X-14+1,myo2X+5+yiX*18 
ELSE I Menüpunkt ist inaktiv! 

CLR mskX ! Maustasten-Status löschen 

ENDIF 

ELSE ! Maus nicht auf Menüpunkt! 

CLR yi2X ! Punkt-Index löschen 

ENDIF 

EXIT IF (MOUSEX<mxlX OR MOUSEX>mxrX OR MOUSEY<myoX OR MOUSEY>myuX) 
AND yi2X<=mmxX 

' Schleife verlassen, wenn sich der Mauszeiger außerhalb 
1 des Darstellungsbereichs befindet. 
m.key$=INKEY$ ! Tastatur abfragen 

UNTIL (mskX>0 OR m.keyS>"") AND yi2X<=mmxX 
1 Schleife verlassen, wenn Tastatur betätigt oder ein 

' Mausknopf gedrückt wurde.! <- 1 

DEFMOUSE 0 ! DEFMOUSE Pfeil 

DEFFILL 1,0,0 ! DEFFILL weiß 

GRAPHMOOE 1 ! Replace-Modus 

PUT MAX(0,mxl2X),MAX(0,myo2X),nmenJ ! Hintergrund restaurieren 
BOUNDARY 1 ! V3.0 : P-Rahmen an 
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SWAP *f.adr%,dum$() 
ERASE dum$() 
*v.adr%=yi2% 

PAUSE 5 
RETURN 


! Menütextfeld wieder global 
! Lokales Swap-Feld löschen 
! Gewählten Index zurückgeben 
I Kleine Klickpause 


Weitere Beispiele zu GET finden Sie hier im Buch in Hülle und Fülle. 


PUT { PU > 


Bildschirmbereich seteen 


PUT X links,Y oben,Var$ [.Modus,Maske] 

PUT (nicht zu verwechseln mit dem Diskettenbefehl PUT#) 
zeichnet einen durch GET (siehe dort) eingelesenen Bildaus¬ 
schnitt an die Koordinaten X_links/Y_oben. Die bei GET defi¬ 
nierte Größe bleibt dabei unverändert. Die Koordinaten des 
unteren rechten Eckpunktes ergeben sich aus der Breite und 
Höhe des mit GET gespeicherten Ausschnitts. Dabei kann die 
Position auch so gewählt werden, daß der Bildausschnitt teil¬ 
weise oder auch völlig außerhalb des Bildschirmbereichs liegt. 

Durch die Option Modus kann ein Grafikmodus bestimmt wer¬ 
den, sonst wird im Replace-Modus gezeichnet. Negative Werte 
für Modus sollten tunlichst vermieden werden, da sonst mit 
Fehlfunktionen zu rechnen ist. 


Modus: 


Destlnvert (&H30) 

In das Bild wird der invertierte 
Bildschirmbereich gesetzt. 

Sourcelnvert (&H50) 

Das Bild wird im Bereich des 
Ausschnittes invertiert. 

ExclDestSource (&H60) 

Der Bildschirmbereich wird mit 
dem Ausschnitt exklusiv- der ver¬ 
knüpft. 
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OrDestSource (&H80) - Die Verknüpfung erfolgt nur 

zwischen Bits, die bei Bildschirm 
und Ausschnitt gleich sind. 

DestSource (&HC0) - Der Ausschnitt wird über den 

Bildschirmbereich gesetzt. 


9.4.1 Organisation eines PUT-Strings 

In diesem Zusammenhang ist es vielleicht angebracht, ein paar 
Worte zur PUT-String-Organisation zu verlieren. Die ersten 3 
Words (6 Bytes) des Strings enthalten der Reihe nach: 


Word 1 

Die Breite des Ausschnitts minus 1 (= X_rechts minus X_links). 


Word 2 

Die Höhe des Ausschnitts minus 1 (= Y unten minus Y_oben). 


Word 3 

Anzahl der Bit-Planes. 

Nur bei einer BitPlane entspricht ein gesetztes Bit im PUT- 
Raster einem gesetzten Punkt im gespeicherten Bild-Ausschnitt. 
In allen anderen Fällen bildet die Kombination von übereinander 
liegenden Bits die Nummer des Farbregisters, aus dem die Farbe 
für diesen Punkt geholt werden soll. 

An diesen sogenannten "Header" (Kopf) werden der Reihe nach 
die Bit-Informationen des gespeicherten Ausschnitts angehängt. 

Dies geschieht bei einer BitPlanes - das ist am einfachsten zu 
erklären - nach folgendem Schema: Angenommen, der Aus¬ 
schnitt ist 26 Pixel breit und 15 Pixel hoch. Die Breite des 
Auschnitts wird durch 16 (Wordbreite) geteilt und - falls bei der 
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Teilung ein Rest geblieben ist - zum integrierten Teilungsergeb¬ 
nis der Wert 1 hinzugezählt: 

Word 1 = Int(26/16)+Abs((26 M00 16)>0) 


Die Bit-Raster-Breite im PUT-String ist also immer glatt durch 
16 teilbar. Im obigen Beispiel belegen die Pixel-Bits 17-26 der 
ersten Ausschnittzeile die Bits 0 bis 9 des 5. String-Words, 
während die verbleibenden Bits 10 bis 15 des 5. Words mit 
"irgend etwas" gefüllt werden. Diese nicht benötigten Bits ent¬ 
halten also unbrauchbaren Bit-Müll. 


32 Bit ( = 2 Words ) 


Ausschnittbreite = 27 Pixel 


<- 'MüU'-> 


* * * * 


BILD-DATEN 


***** 


********** 


************ 

************ 


|«--vorderes Word der Zeile-> 

0123456789ABCDEF 

(Hex-Bitnurmern) 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
1 
1 
1 

0 111 

********** 1 100 

«--hinteres Word der Zeile->| 

0123456789ABCDEF 




********** 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


In diesem Rhythmus werden nun alle Bildzeilen im Ziel-String 
abgelegt. Bit 0 - 15 des 6. Words und Bit 0 - 9 des 7. Words 

enthalten die Daten der 2. Pixel-Zeile, Bit 0 - 15 des 8. Words 

und Bit 0 - 9 des 9. Words enthalten die Daten der 3. Pixel- 

Zeile usw. 

Bei mehr BitPlanes wird das Verfahren wesentlich komplizierter. 
Ich habe fast einen ganzen Tag damit verbracht, mir zu über¬ 
legen, wie ich dieses Verfahren transparent machen könnte - 
und zwar so, daß es für jeden leicht verständlich ist. Nach 
vielen erfolglosen Ansätzen habe ich mich entschlossen, die 
vielen Seiten Text, die ich dabei verschwenden würde, durch 
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eine möglichst aussagekräftige Grafik zu ersetzen und diese dann 
zu erklären. 

Prinzipiell ist es in Farbe das gleiche Schema, nur daß sich die 
Farbinformationen eines Bildschirmpunktes daraus ergeben, daß 
2 oder mehrere - wie in der Grafik dargestellt - 4-Bitraster 
(Planes) im oben beschriebenen Format "übereinander" gelegt 
werden. Das für den jeweiligen Punkt zuständige Farbregister 
ergibt sich aus der Bit-Summe der jeweiligen Plane-Bits. 
Grundsätzlich ist ein Farb-GET/PUT-Image genauso organisiert 
wie der Farb-Bildschirm, wobei nur jeweils die nicht benötigten 
Rest-Bits (Bit-Müll) des letzten Words einer Zeile zu beachten 
sind. 

In der Grafik habe ich die Bits der Reihenfolge nach durch¬ 
numeriert. Als Beispiel habe ich ein 14*6-Raster gewählt. 
Nehmen Sie an. Sie "schneiden" mittels GET aus dem Bildschirm 
ein Teil mit der Breite von 14 und der Höhe von 6 Pixel aus. 
Die ersten sechs Bytes des String-Headers habe ich ja oben 
schon erklärt. Daran schließen sich nun - im Beispiel - im 4- 
Word-Rhythmus die Bit-Informationen der einzelnen Zeilen an. 

Legt man nun die vier Planes direkt übereinander, so ergibt die 
Bit-Stellung der vier zusammengehörigen Bits die Nummer des 
Farbregisters, aus dem dieser Bildschirmpunkt seine Farbe be¬ 
zieht. In der Grafik habe ich das Ausschnitt-Pixel 4/3 besonders 
herausgestellt, um daran die Farbberechnung zu demonstrieren. 

In Plane 1 ist dieses Bit gesetzt : 2"0 = 1 

In Plane 2 ist es ebenfalls gesetzt : 2*1 = 2 

In Plane 3 ist es nicht gesetzt : 0=0 

In Plane 4 ist es wiederum gesetzt : 2'3 = 8 

Die Summe dieser vier Bits ergibt : 11 


Das Pixel 4/3 des Ausschnitts bezieht seine Farbe also aus dem 
Farbregister 11. Zur Vertiefung nehme ich nun noch die vier 
Bits 205, 221, 237 und 317 am rechten Rand. 
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In Plane 1 ist das Sit nicht gesetzt : 0=0 
In Plane 2 ist es gesetzt : 2‘1 = 2 
In Plane 3 ist es ebenfalls gesetzt : 2‘2 = 4 
In Plane 4 ist es nicht gesetzt : 0=0 


Für Pixel 14/4 ist das Farbregister 6 zuständig. 


In der Grafik sehen Sie, daß die beiden letzten Bits jeder Zeile 
leer sind. An Speicherplatz wird jedoch für jedes "angebrochene" 
Word ein volles Word benötigt. Wäre also in diesem Fall der 
Ausschnitt 17 Punkte breit, so würde dafür der doppelte 
Speicherplatz erforderlich, obwohl vom zweiten Word jeder Zeile 
nur das 1 Bit belegt wäre. 

Anhand der Word-Numerierung können Sie erkennen, in wel¬ 
cher Folge die Words im Speicher liegen. 

Dieses Grundwissen soll Ihnen genügen, um die internen Ver¬ 
borgenheiten der Amiga-Grafik halbwegs zu verstehen. Die Be¬ 
fehle funktionieren aber auch, wenn Sie es nicht verstanden ha¬ 
ben, denn ein komplexer Befehl ist ja gerade dafür da, daß er 
einem aufwendige Arbeit und großes Hintergrundwissen ab¬ 
nimmt. 


9.4.2 Organisation des Bildschirm-Speichers 


SPRITE { SPR } Sprite setzen und löschen 


SPRITE #Nummer, Def.var? 

SPRITE #Nummer [,""] 

SPRITE #Nummer [,Xpos,Ypos] 

SPRITE ON/OFF 

Mit Def.varS wird eine String-Variable angegeben, deren Inhalt 
im MKI$-Format die Mausform definiert. 
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Grundsätzlich sind Sprite(s) nichts anderes als der Mauszeiger, 
der ja ebenfalls den Charakter eines Sprites besitzt. Der Maus- 
Sprite wird jedoch automatisch durch die Bewegungen der Maus 
gesteuert. Mit dem Befehl SPRITE können Sie einen - oder auch 
mehrere - Sprites definieren und nach Ihren Wünschen auf dem 
Bildschirm plazieren und bewegen. 

Der Aufbau eines solchen Sprites ist dem eines Mauszeigers 
gleich, denn der Mauszeiger ist ein Sprite. Die Sprite-Form be¬ 
steht aus einem Raster mit 16*y Pixel, und es wird ein Format- 
String gebildet, indem man die Sprite-Daten als BitMap-konver- 
tierte-String-Daten aneinanderfügt. 


Der Sprite-String hat folgendes Format: 

Für jede Grafikzeile des Sprites werden vier Bytes benötigt. 
Jedes dieser Bytes wird als ASCII-Zeichen in den String abge¬ 
legt, wobei die gesetzten Bits einen Punkt markieren und die 
ungesetzten die freien Lücken. Da ein Sprite eine Breite von 16 
Punkten besitzt, werden die ersten und letzten zwei Bytes einer 
Zeile zu einem Paar zusammengefaßt, das nebeneinander 
liegende Punkte repräsentiert. 

Die zwei Paare sind für die vier verschiedenen Farben zuständig. 
Es werden nämlich beide 16 Bit breite Punkt-Reihen über¬ 
einander gelegt. Für jeden Punkt wird dann das übereinander 
liegende Bit-Paar untersucht. Es ergeben sich folgende Kombi¬ 
nationen: 


Bit-Paar Färb« 


00 transparent 

01 erstes Farbregister 

10 zweites Farbregister 

11 drittes Farbregister 

Die Kombination der Bits ergibt einen Farbwert. Der erste 
Farbwert, die Kombination 00, ist immer transparent, d.h. der 
Hintergrund bleibt sichtbar. Bei den restlichen drei Einstel¬ 
lungen hängt es von der Sprite-Nummer ab, welche Farbe ihm 
zugeteilt wird. 
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Hier ist noch eine Tabelle, bei der Sie erkennen können, welche 
Farbregister, die Sie bei Bedarf mit SETCOLOR verändern kön¬ 
nen, bei welchem Sprite die Farbgestalt bestimmen: 


Sprite-Nummer Farbregister 

0/1 17, 18, 19 
2/3 21, 22, 23 
4/5 26, 26, 27 
6/7 29, 30, 31 

Mit der zweiten Variante läßt sich ganz schnell die Grafik eines 
Sprites wieder löschen. Somit kann auch der Mauszeiger über 
seine Nummer (0. Sprite) gelöscht werden. 


Die dritte Version erlaubt die Positionierung des Sprites auf dem 
Screen. Dafür gibt man die X- und Y-Koordinate in einem 
320x256-Punkte-Raster an, das unabhängig von der Screen- 
Auflösung gilt. 


Zum Löschen oder Einschalten aller Sprites gibt es noch die Va¬ 
riante mit den Schlüsselwörtern OFF oder ON, die auch den 
Mauszeiger betreffen. Beispiel: 


PRINT 

sp1$=STRING$(64,-1) 

SPRITE #1,sp1S 
FOR iX=0 TO 2000 STEP 4 
xX=108+SIN(iX*P1/180)*(100) 
yX=108+COS(iX*PI/180)*(40) 
VSYNC 

SPRITE #1,xX,yX 
NEXT iX 
SPRITE OFF 


! Nur, um Ausgabefenster zu aktivieren 


- Sprite 
darstellen 


! Sprite ausschalten 
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VSYNC { VS } VBL-Synchronisation 


VSYNC 

Wartet auf den nächsten Strahlrücklauf (Vertikal-Blank). Der 
Elekronenstrahl beginnt den Bildaufbau in der oberen linken 
Bildschirmecke und zeichnet dann nacheinander alle Zeilen, bis 
er in der rechten unteren Ecke angelangt ist. Danach beginnt er 
den nächsten Aufbau wieder in der linken oberen Ecke. Diesen 
Weg legt er ca. 50 Mal in der Sekunde zurück 

Bei Grafikausgaben mit GET oder PUT kann es sinnvoll sein, 
den nächsten Bildneuaufbau abzuwarten. Durch die vertikale 
Synchronisation einer Grafikausgabe mit dem Bildaufbau kann 
so das Interferenz-Flimmern eingeschränkt werden. Bei Grafik¬ 
ausgaben, die mehr Zeit in Anspruch nehmen, als der Computer 
zu einem Bildaufbau benötigt, treten allerdings auch dann 
wieder Interferenzen auf. Ein Beispiel dazu finden Sie unter 
SPRITE. Die Auswirkung von VSYNC können Sie beobachten, 
wenn Sie in diesem Beispiel die VSYNC-Zeile löschen. 


9.5 Objekt-Animation 

Der Amiga ist in der Lage, nicht nur Sprites für bewegte und 
animierte Darstellung zu verwenden. Zusätzlich werden die sog. 
BOBs angeboten (BlitterOBjects), die vom Coprozessor "Blitter" 
verwaltet werden. Der Blitter ist in der Lage, besonders schnell 
größere Grafik-Flächen zu verschieben und eignet sich so be¬ 
sonders für die Objekt-Animation. 

Die vom GFA-BASIC vorgestellten Befehle richten sich voll¬ 
kommen nach dem AmigaBASIC-Standard, um so ein größtmög¬ 
liches Maß an Kompatibilität zu erreichen. 
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OBJECT.SHAPE Objekt Aussehen definieren 


OBJECT.SHAPE ObjNummer, DefStringS 
OBJECT.SHAPE ObjNummer, AltesObjekt 

Hier haben wir den Befehl, mit dem Sie das Aussehen eines 
Objektes bestimmen können. Die erste Syntax-Variante definiert 
ein Objekt über einen Definitions-String. Diesen String erhalten 
Sie ganz einfach über ein auf der GFA-Diskette mitgeliefertes 
Programm. Es heißt IFF_TO_BOB.GFA und erlaubt das Kon¬ 
vertieren von IFF-Brushes, die Sie z.B. mit DeluxePaint erstellen 
können, in BOBs. 

Die zweite Variante kopiert einfach die Gestalt des alten Ob¬ 
jektes in das neue. Sie duplizieren damit einfach ein Objekt und 
können das zweite z.B. mit OBJECT.PLANES in den Farben 
verändern. 


OBJECT.CLOSE Objekt entfernen 


OBJECT.CLOSE [ObjNummer [.ObjNummer [.ObjNummer ...]]] 

Entfernt ein Objekt ganz und gar aus dem Window. Danach ist 
dieses Objekt auch nicht mehr wieder neu aufrufbar, sondern 
muß ganz neu definiert werden. 

Die Anzahl der zu löschenden Objekte ist beliebig. Trennen Sie 
mehrere Objekt-Nummern durch Kommata. Sollen alle aktiven 
Objekte entfernt werden, genügt der Aufruf des Befehls ohne 
Parameter. 
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0 BJ ECT. 0 N Objekt sichtbar machen 


OBJECT.ON [ObjNummer [.ObjNummer [.ObjNummer...]]] 

Schaltet ein zuvor definiertes Objekt ein. Es wird ab jetzt auf 
dem Bildschirm dargestellt, kann bewegt oder beschleunigt und 
auch mit allen anderen Befehlen beeinflußt werden. 

Auch hier ist die Anzahl der Parameter beliebig. Geben Sie 
keine Parameter an, werden alle Objekte eingeschaltet. 


OBJECT.OFF Objekt unsichtbar machen 


OBJECT.OFF [ObjNummer [.ObjNummer [.ObjNummer...]]] 

Löscht ein Objekt aus dem Window, d.h. die Darstellung des 
Objektes wird eingestellt. Das Objekt selbst ist aber noch für 
GFA-BASIC vorhanden. Sie können es also jederzeit wieder neu 
aktivieren. 

Geben Sie durch Kommata getrennt die Nummern der Objekte 
an, die ausgeschaltet werden sollen. Bei fehlender Angabe wer¬ 
den alle Objekte ausgeschaltet. 


OBJECT.CLIP Objekt Wirkungsbereich festlegen 


OBJECT.CLIP X_links,Y_oben,X_rechts,Y_unten 

Die von GFA-BASIC unterstützten Objekte müssen nicht im 
gesamten Bereich des Windows zugelassen sein. Sie können auch 
einen Bereich explizit definieren, der den Freiraum der BOBs 
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einschränkt. Dafür wird OBJECT.CLIP benutzt. Die Koordina¬ 
tenangaben verstehen sich absolut innerhalb des Windows. 


O B J ECT. START Objekt-Bewegung starten 


OBJECT.START [ObjNummer [.ObjNummer [.ObjNummer...]]] 

Startet die Bewegung der angegebenen Objekte. Fehlt die spe¬ 
zielle Angabe von Objekt-Nummern, bezieht sich der Befehl auf 
alle aktiven Objekte. 


OBJECT.STOP Objekt-Bewegung anhalteo 


OBJECT.STOP [ObjNummer [,ObjNummer [.ObjNummer...]]] 

Stoppt die Bewegung der angegebenen Objekte. Fehlt die expli¬ 
zite Angabe einer oder mehrerer Objekt-Nummern, so werden 
alle Objekte angehalten. 


OBJECT.X 


X-Position bestimmen 


OBJECT.X ObjNummer, X Position 

Bestimmt die X-Position des Objektes. Dieser Wert bezieht sich 
auf das Window, in dem das Objekt dargestellt wird. 
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Y-Positior» bestimmen 


OBJECT.Y 


OBJECT.Y ObjNummer, YPosition 

Bestimmt die Y-Position des Objektes. Dieser Wert bezieht sich 
auf das Window, in dem das Objekt dargestellt wird. 


Objekt beschleunigen 


OBJECT.AX 


OBJECT.AX ObjNummer, PixSec 

Wenn Sie ein Objekt in Ihrem Programm bewegen wollen, dann 
läßt sich dies nicht nur linear machen (das Objekt bewegt sich 
ständig mit der gleichen Geschwindigkeit), sondern Sie können 
diese Grafik auch beschleunigen. Dazu wird dieser Befehl ver¬ 
wendet, bei dem Sie unter Angabe der Objekt-Nummer eine 
Beschleunigungsrate angeben können, die den Geschwindig¬ 
keitszuwachs in Pixeln pro Sekunde definiert. 

OBJECT.AX legt die Beschleunigung des Objektes alleine in X- 
Richtung fest! 


OBJECT.AY 


Objekt beschleunigen 


OBJECT.AY ObjNummer, PixSec 

Zur Beschleunigung eines Objekts in Y-Richtung. Sehen Sie für 
eine Beschreibung unter OBJECT.AX nach. 
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OBJECT.VX Objekt-Geschwindigkeit festlegen 


OBJECT.VX ObjNummer, X Geschwindigkeit 

Bestimmt die Geschwindigkeit des Objektes in X-Richtung. 
Diese wird in Pixeln pro Sekunde angegeben. 


OBJECT.VY Objekt-Geschwindigkeit festlegen 


OBJECT. VY ObjNummer, YGeschwindigkeit 

Bestimmt die Geschwindigkeit des Objektes in Y-Richtung. 
Diese wird in Pixeln pro Sekunde angegeben. 


OBJECT. PLAN ES Farbeinstetlung des Objekts festlegen 


OBJECT.PLANES ObjNummer [.Bitebenen [.Ebenenwert]] 

Dieser sehr interne Befehl erlaubt es, die Darstellung des BOBs 
zu beeinflussen. Dabei werden zwei 8 Bit-Werte angegeben, die 
die jeweilige Verteilung der Grafik auf die einzelnen BitPlanes 
des Screen bestimmen. 

Mit der Einstellung Bitebenen geben Sie an, in welche BitPlanes 
die BOB-Grafik geschrieben werden soll. Setzen eines Bits be¬ 
deutet, daß die vom BOB für diese BitPlane vorgesehene Grafik 
dargestellt werden soll. Löschen Sie ein Bit, obwohl dafür eine 
BitPlane definiert wurde, so verliert der BOB an dieser Stelle 
seine Farbe. 

Ebenenwert gleicht die oben ausgeschalteten BitPlanes wieder 
aus. Indem Sie dort gelöschte Bits hier setzen, tragen Sie dem 
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Amiga auf, diese Bitplanes ganz zu setzen, daß heißt dort eine 
Farbe darzustellen. 

So können Sie mit dem ersten Wert Farben aus der Grafik ent¬ 
fernen und mit dem zweiten Farben dazufügen. Sie können aber 
auch ein BOB mit nur einer BitPlane nehmen, und es durch 
Zuschalten nicht benutzter BitPlanes im Ebenenwert einfärben. 
Damit lassen sich ganz einfach verschiedenfarbige BOBs mit 
gleicher interner Definition erstellen. 

Hier noch ein Rechenbeispiel, das Ihnen die Bestimmung der 
beiden Werte erleichtert: 

Das BOB hat vier BitPlanes, von denen nur die erste und die 
dritte BitPlane dargestellt werden sollen. 

BitPlane 1 : 2*0 = 1 
BitPlane 2 : 2*1 = 2 
BitPlane 3 : 2*2 = 4 
BitPlane 4 : 2*3 = 8 
BitPlane 5 : 2*4 = 16 
BitPlane 6 : 2*5 = 32 


Wir bekommen also für Bitebenen einen Wert von 5. Außerdem 
soll noch die vierte BitPlane bei der Darstellung mit Bits gefüllt 
werden. Dazu wird der Wert 8 bei Ebenenwert eingetragen. 


OBJECT.PRIORITY Objekt-Reihenfolge einstellen 


OBJECT.PRIORITY ObjNummer, Priorität 

Sobald mehrere BOBs in einem Window dargestellt werden, tritt 
für den Computer das Problem auf, daß er nicht weiß, in wel¬ 
cher Reihenfolge er die BOBs zeichnen soll. Das ist besonders 
für eine perspektivische Darstellung sehr wichtig, denn dort lebt 
der Effekt von Überlappungen, die Teile der Grafik verdecken. 
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Sie können mit diesem Befehl für jeden BOB eine Priorität fest¬ 
legen, mit der er gezeichnet wird. Je höher die Priorität, desto 
später wird das Objekt gezeichnet, es liegt also später über an¬ 
deren Objekten mit geringerer Priorität. 

Der Wert dafür kann zwischen 0 und 32767 liegen und reicht 
damit bestimmt für Ihre Anwendungen aus. 


OBJECT.HIT Objekt-Kollision Auswahl treffen 


OBJECT.HIT ObjNummer [, Wertl [,Wert2]l 

Manchmal ist es nötig, daß die Kollision zweier Objekte nicht 
registriert wird. Dazu könnte man einerseits in der Abfrage bei 
der Untersuchung manche Fälle außer acht lassen. Dies erweist 
sich aber nicht als günstig, weil für jeden anderen Fall immer 
wieder neue Abfragen geschrieben werden müssen. 

Deshalb gibt es den Befehl OBJECT.HIT, mit dem die Bezie¬ 
hung aller Objekte neu definiert werden kann. Unter Beziehung 
verstehen wir, ob eine Kollision angezeigt oder nicht angezeigt 
werden soll. Dabei wird wieder auf verschiedene Bitmuster 
zurückgegriffen, die angeben, welche Objektnummern bei einer 
Kollision gemeldet werden sollen. 

GFA-BASIC meldet alle Kollisionen. Wir verändern das durch 
die beiden Werte. Der erste, ein 16-Bit-Wert, bestimmt mit je¬ 
dem seiner Bits, mit welchen anderen Objekten es Zusammen¬ 
stößen kann, so daß eine Meldung erfolgt. Bei einer Kollision 
wird einfach der Wert2 des fremden Objektes mit dem Wertl 
unseres Objektes verknüpft. Nur wenn ein Wert ungleich null 
entsteht, wird eine Kollision gemeldet. 
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X-PosKion ermitteln 


OBJECT.XO 


X Position = OBJECT.X(ObjNummer) 

Bestimmt die aktuelle X-Position des über ObjNummer identi¬ 
fizierten Objektes. 


Y*Posftfon ermitteln 


OBJECT.YO 


YPosition = OBJECT.Y(ObjNummer) 

Bestimmt die aktuelle Y-Position des über ObjNummer identifi¬ 
zierten Objektes. 


OBJECT.VXQ Geschwindigkeit in X-Richtung ermitteln 


X_Geschwindigkeit = OBJECT.VX(ObjNummer) 

Bestimmt die momentane Geschwindigkeit in X-Richtung in 
Pixeln pro Sekunde. 


OBJECT.VYO Geschwindigkeit in Y-Richtung ermitteln 

Y_Geschwindigkeit = OBJECT.VY(ObjNummer) 

Bestimmt die momentane Geschwindigkeit in Y-Richtung in 
Pixeln pro Sekunde. 
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OBJECT.AXQ Beschleunigung in X-Richtung ermitteln 


X Beschleunigung = OBJECT.AX(ObjNummer) 

Bestimmt die aktuelle Beschleunigung in X-Richtung in Pixeln 
pro Sekunde. 


OBJECT.AYO Beschleunigung ln Y-Richtung ermitteln 


Y_Beschleunigung = OBJECT.AY(ObjNummer) 

Bestimmt die aktuelle Beschleunigung in Y-Richtung in Pixeln 
pro Sekunde. 


ON COLLISION GOSUB Bei Objektkollision verzweigen 


ON COLLISION GOSUB Prozedur 

Legt die Prozedur fest, die bei Kollision zweier Objekte oder 
eines Objektes mit dem Window-Rand angesprungen werden 
soll. 


COLLISION() Kollisionssart feststellen 


Ort = COLLISION(ObjNummer) 

Stelle fest, mit welchem Objekt das angegebene zusammenge¬ 
stoßen ist. Dabei können vier Sonderfälle eintreten: 
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Ergebnis Bedeutung 

-1 oberer Window-Rand 
-2 linker Rand 
-3 unterer Rand 
-4 rechter Rand 

Außerdem gibt es die Möglichkeit, als Argument die Werte 0 
oder -1 anzugeben. Dabei liefert COLLISION(O) die Nummer 
des Objekts, das als letztes an der Kollision beteiligt war. Und 
COLLISION(-l) liefert die Nummer des Windows, in dem die 
Kollision stattfand. 



Datenumwandlung 
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ASCQ 


Textzeichen = > ASCII-Wert 


Var=ASC("Zeichen") 

Ermittelt den ASCII-Wert des Textzeichens 'Zeichen 1 . Bei Strings 
wird nur der ASCII-Wert des ersten Zeichens zurückgegeben. Ist 
der angegebene String leer wird der Wert 0 geliefert. ASC() 
bildet die Umkehrfunktion zu CHR$(). 

Eine Tabelle der möglichen Zeichen und ihrer ASCII-Werte fin¬ 
den Sie im Anhang. ASCII: American Standard Code for Infor¬ 
mation Interchange (Deutsch: Amerikanischer Standard-Code für 
Informationsaustausch). 


BIN$Q 


Numerisch = > Binär 


Var$ = BIN$(Expr) 

Var$ = BIN$(Expr [.Stellen]) 

Wandelt Expr in einen Binär-String um. Expr steht für eine(n) 
beliebige(n) numerische(n) Variable, Konstante, Ausdruck oder 
Funktion. 

Durch den optionalen Parameter Stellen kann eine Stellenanzahl 
(1 - 32) vorgegeben werden, auf die der gewandelte Wert be¬ 
grenzt wird. Beispiele: 

Print Bin$(1273530) 

I 

Print 

For I%=1 To 4 
Read A% 


! 4 Binärwerte 
• Lesen 
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Print Bin$(AX),"= ,M AX ! Wandeln und ausgeben 
Next IX 

Data &X1001110,&X100110101,&X10001110,&X100111001 

i 

Print 

For IX=1 To 12 ! 12 Binärwerte 

Read AS I Als String lesen 

B$=RightS(String$(14,"0 ,, )+A$,H) I Binär-String auf 
1 ! 14 Zeichen formatieren 

Print B$, ! Binär-String ausgeben 

Print l, = ,,, Val("&X"+AS) ! Wert ausgeben 

For JX=1 To Len(BS) ! Alle Zeichen des Strings 
If Val("&X"+BS) And 2‘JX ! Bit gesetzt? 

Plot 200+JX.30+IX I Dann Punkt setzen 
Endi f 
Next JX 
Next IX 

Data 000111000111000111000 
Data 000111000111000111000 
Data 000111000111000111000 
Data 111000111000111000111 
Data 111000111000111000111 
Data 111000111000111000111 
Data 000111000111000111000 
Data 000111000111000111000 
Data 000111000111000111000 
Data 111000111000111000111 
Data 111000111000111000111 
Data 111000111000111000111 


10.1 Die Zahlensysteme 

Es gibt im Computerbereich vier Arten von Zahlensystemen: 

- Das dezimale System 

- Das hexadezimale System 

- Das binäre System 

- Das oktale System 

Das allgemein übliche Dezimalsystem hat die Zahl 10 zur Basis 
(dezi: von lat. decem => zehn/z.B. Dezimeter = 10 Zentimeter). 
Diese Basis wird jeweils zur Ermittlung der Wertigkeit einer 
Zahl herangezogen. So werden die Einerstellen aus der Null- 
Potenz der Zahl 10 ermittelt (10 hoch 0 = 1), die Zehnerstellen 
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aus der Einer-Potenz (10 hoch 1 = 10), die Hunderterstellen aus 
der Zweier-Potenz (10 hoch 2 = 100) usw. 

In den anderen Zahlensystemen ist dieser Potenzierungsvorgang 
exakt derselbe, nur werden hier andere Zahlen als Basis verwen¬ 
det. So wird im Hexadezimalsystem (Hexa + Dezi = Hexadezi/6 
+ 10 = 16) die Zahl 16 als Basis verwendet, im Binärsystem (Bi = 
2) die Zahl 2 und im Oktalsystem (Okta = 8) die Zahl 8. So er¬ 
klären sich die geringen Wertigkeiten der Binärzahlen in ihren 
Stellen und die hohen Wertigkeiten der Hexadezimalzahlen. 

Stellen Wertigkeiten: 


Dezimal: 


<-... 

5- 1 

4. 

1 

3. 

1 

2. 

| 

1. 

1 

Stelle 

<-... 

10000 I 

1000 

| 

100 

1 

10 

i 

1 

1 

Uert/Format 

<•... 

10‘4 | 

10*3 

i 

10‘2 

1 

1 

101 

| 

10‘0 

i 

_ i 

Potenz 

Hexadezimal: 










<* . . . 

5 - ! 

4. 

j 

3. 

j 

2. 

i 

1. 

i 

Stelle 

<- . . . 

65536 | 

4096 

i 

256 

i 

16 

1 

1 

i 

Wert 

<- . . . 

$10000 | 

$1000 

| 

$100 

1 

$10 

1 

$1 

i 

Format 

<“ . . . 

16'4 | 

16"3 

i 

162 

1 

16*1 

| 

160 

j 

Potenz 

Binär: 











<-... 

5- i 

4. 

j 

3. 

j 

2. 

i 

1. 

i 

Stelle 

<“ . . . 

16 | 

8 

i 

4 

i 

2 

1 

1 

i 

Uert 


XI0000 I 

XI000 

i 

XI00 

i 

XI0 

1 

XI 

j 

Format 

<- . . . 

2*4 

23 

i 

2"2 

i 

2"1 

1 

2"0 

i 

Potenz 
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Oktal: 


<-... 5. j 

i 

3- i 

2. 

j 

i. 

Stelle 

<-... 4096 | 

512 | 

64 | 

8 

j 

i 

Uert 

<-... &10000 | 

&1000 | 

&100 | 

&10 

i 

&i 

Format 

8‘4 

8-3 

1 

_1 

f\J 

CO 

8'1 

i 

_i_ 

80 

Potenz 


Bei den Hexadezimalzahlen ist eine Besonderheit zu beachten. 
Da sich die Zahl 16 mit arabischen Zahlen nicht einstellig dar¬ 
stellen läßt, hat man zu einem Trick gegriffen. Die Hex-Zahlen 
0-9 werden genauso dargestellt wie im Dezimalsystem. Die 
Zahlen von 10 bis 15 werden dagegen durch einen Buchstaben 
repräsentiert (A=10;B=11;C=12; D=13;E=14;F=15). Daher also die 
Buchstaben in Hexadezimalzahlen. 

Die Dezimalzahl 1037 setzt sich also wie folgt zusammen: 

(10 hoch 0) * 7 = 7 

+ (10 hoch 1) * 3 = 30 

(die dritte Stelle ist nicht besetzt, also: 0) 

+ (10 hoch 3) * 1 = 1000 

Summe : 1037 


Die Binärzahl % 100011 ergibt dagegen nach der Wertigkeit ihrer 
Stellen (immer von rechts gesehen, wie im Dezimalsystem auch): 

(2 hoch 0) * 1 =1 

+ (2 hoch 1) * 1 =2 

(die dritte Stelle ist nicht besetzt, also: 0) 

(die vierte Stelle ist nicht besetzt, also: 0) 

(die fünfte Stelle ist nicht besetzt, also: 0) 

+ (2 hoch 5) * 1 =32 


Summe : 35 


Das gleiche für die Hexadezimalzahl $F3B0: 
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(die erste Stelle ist nicht besetzt, also: 0) 
(16 hoch 1) * 11 = 176 

+ (16 hoch 2) * 3 = 2816 

♦ (16 hoch 3) * 15 = 61440 


Summe : 64432 


Und noch für die Oktalzahl & 10537: 


(8 hoch 0) * 7 = 7 
+ (8 hoch 1) * 3 = 24 
♦ (8 hoch 2) * 5 = 320 

(die vierte Stelle ist nicht besetzt, also: 0) 
+ (8 hoch 4) * 1 = 4096 


Surmte : 4447 


Die Umkehrung dieser Transformation sieht dann so aus: Die 
Dezimalzahl 1352 soll in das binäre Format verwandelt werden: 


1352 : 

2 

= 

676 

Rest 

0 

> 

676 : 

2 

= 

338 

Rest 

0 

> 

338 : 

2 

= 

169 

Rest 

0 

> 

169 : 

2 

= 

84 

Rest 

1 

> 

84 : 

2 

= 

42 

Rest 

0 

> 

42 : 

2 

= 

21 

Rest 

0 

> 

21 : 

2 

= 

10 

Rest 

1 

> 

10 : 

2 

= 

5 

Rest 

0 

> 

5 : 

2 

= 

2 

Rest 

1 

> 

2 : 

2 

= 

1 

Rest 

0 

> 

1 : 

2 

= 

0 

Rest 

1 

> 

0 : 

2 

= 

0 

Rest 

0 

> 


Die Binärzahl lautet: ÖiÖIÖiÖÖiÖÖÖ 


Nach dem gleichen Schema lassen sich auch Dezimalzahlen in 
die übrigen beiden Zahlensysteme konvertieren. Dazu noch das 
Beispiel für Hexadezimalzahlen: Die Dezimalzahl 35117 soll in 
das Hexadezimalformat gewandelt werden: 


35117 : 16 = 2194 => 2194 * 16 = 35104 => Diff. 

2194 : 16 = 137 => 137 * 16 = 2192 => Diff. 

137 : 16 = 8 => 8 * 16 = 128 => Diff. 

8 : 16 = 0 => 0 * 16 = 0 => Diff. 

0 : 16 = 0 => 0 * 16 = 0 => Diff. 


= 13 (D) >- 

= 2 ( 2 ) >- 

= 9 (9) >- 

= 8 (8) -. 

= 0 I 


Die Hexadezimalzahl lautet : 


8 9 2 D 
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Bei derart komfortablen Sprachen wie GFA-BASIC hat man es 
natürlich nicht mehr nötig, diese Zahlen und Formate "zu Fuß" 
zu ermitteln. Trotzdem kann es unter Umständen von Vorteil 
sein, sich damit einigermaßen auszukennen. 

Das hexadezimale Zahlensystem wurde aus einem bestimmten 
Grund entwickelt. Es lassen sich nämlich "zufälligerweise" genau 
die Inhalte von vier Bits (Tetrade oder auch Nibble) mit einer 
Hex-Zahl darstellen. Eine vierstellige Binärzahl kann maximal 
den Wert 15 (2 A 0+2 A 1+2 A 2+2 A 3) annehmen. Und genau dieser 
Wert läßt sich auch maximal mit einer Hex-Ziffer darstellen (F). 
Ein Byte (8 Bit) wird demnach immer zu einer 2er-Tetrade (2*4 
= 8 Bit), ein Word (16 Bit) zu einer 4er-Tetrade (4*4 = 16 Bit) 
und ein Longword (32 Bit) immer zu einer 8er-Tetrade (8*4 = 
32 Bit) zusammengefaßt. 


CFLOATQ Integerwert » > Rießkommawert 


Var=CFLOAT(Wert) 

Wandelt Wert (Integerwert) in eine Realzahl um. CFLOAT bildet 
die Umkehrfunktion zu CINT. 


ASCII * > Textzeichen 


CHR$0 


Var$=CHR$(Wert) 

Liefert ein - dem angegebenen Wert entsprechendes - ASCII- 
Zeichen. Ist Wert größer als 255, so wird das Zeichen ermittelt, 
das dem Wert MOD 256 (bzw. Wert AND 255) entspricht. CHR$ 
bildet die Umkehrfunktion zu ASC. 

Beispiele hierzu finden Sie z.B. unter INKEY$(), LINE INPUT, 
PRINT, WRITE und ASCQ). 
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CI NTQ Fließkommawert * > integerwert 


Var=CINT(Wert) 

Wandelt Wert (Realwert) in eine Integerzahl um. Im Gegensatz 
zu INT wird die Zahl vorher exakt gerundet. CINT bildet die 
Umkehrfunktion zu CFLOAT. 


CVIQ» CVL0, CVS0, CVD0 String « > Format-Zahl 


Funktion: Ergebnis: 

Var=CVI("2 Zeichen") 16-Bit-lntegerwert 
Var=CVL("4 Zeichen") 32-Bit-lntegerwert 
Var=CVS('4 Zeichen") Realwert (Amiga-BASIC-Format) 

Var=CVD("8 Zeichen") Realwert (MBASIC- oder GFA-BASIC- 
Format) 

Es wird die der jeweiligen Funktion entsprechende Zeichen¬ 
anzahl von x Zeichen in eine Zahl des jeweiligen Formats um¬ 
gewandelt. Diese Funktionen bilden die Umkehrfunktionen zu 
MKI$/MKL$/MKS$/MKD$. 

Beispiele finden Sie unter INSTR() und in der Prozedur Cut 
unter RIGHT$(). 


HEX$Q 


Numerisch = > Hexadezimal 


Var$ = HEX$(Expr) 

Var$=HEX$(Expr [.Stellen]) 

Wandelt Expr in einen Hexadezimal-String um. Expr steht für 
eine(n) beliebige(n) numerische(n) Variable, Konstante, Aus- 
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druck oder Funktion. Durch den optionalen Parameter Stellen 
kann eine Stellenanzahl (1 - 8) vorgegeben werden, auf die der 
gewandelte Wert begrenzt wird. 

Außerdem wird das Standard-Präfix für Hexadezimalzahlen (z.B. 
SFA5C16) erkannt, und - zulässige - Wertangaben dieser Art 
vom Interpreter selbständig in das GFA-Format (z.B. 
&HFA5C16) umgewandelt. Wird als Präfix nur das Und-Zeichen 
& (z.B. &1EA6F9) verwendet, wird der Ausdruck ebenfalls in 
den entsprechenden Hex-Wert umgewandelt. 


MKI$0, MKJL$(), MKS${), MKD$() Format-Zahl = > String 


Funktion: Ergebnis: 

Var$ = MKI$(16-Bit-lnteger-Wert) 2-Zeichen-String 

Var$=MKL$(32-Bit-Integer-Wert) 4-Zeichen-String 

Var$ = M KS$(Amiga-B ASIC-Realwert) 4-Zeichen-String 

Var$ = MKD$(MBASIC- oder GFA-BASIC-Realwert) 8-Zeichen-String 

Es wird der in Klammern angegebene Wert in einen der Wert¬ 
größe und dem gewünschten Format entsprechenden String-Aus¬ 
druck umgewandelt. 

Der Variablenaufbau der verschiedenen Systeme, Interpreter und 
Compiler kann sich stark voneinander unterscheiden. Um nicht 
zeitaufwendige Rechenoperationen ausführen zu müssen, die 
einzelnen Werte anderer Sprachen in das benötigte Format zu 
übertragen, können diese Funktionen auch dazu verwendet wer¬ 
den, den Datenaustausch zu vereinfachen. 

Diese Funktionen bilden die Umkehrfunktionen zu CVI()/ 
CVL()/CVS()/CVD(). 

Beispiele hierzu finden Sie unter anderem in der Prozedur Cut 
unter RIGHTSQ. 
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Numerisch = > Oktal 


OCT$ö 


Var$ = OCT$ (Expr) 

Var$ = OCT$(Expr [.Stellen]) 

Wandelt Expr in einen Oktal-String um. Expr steht für eine(n) 
beliebige(n) numerische(n) Variable, Konstante, Ausdruck oder 
Funktion. Will man Integerwerte im Oktal-Format angeben, so 
kann der Vorsatz &O (z.B.: A%=&016501) verwendet werden. 

Durch den optionalen Parameter Stellen kann eine Stellenanzahl 
(1 - 11) vorgegeben werden, auf die der gewandelte Wert be¬ 
grenzt wird. 

Weitere Informationen finden Sie in Kapitel 10.1 "Die Zahlen¬ 
systeme". 


STR$0 


Numerisch = > String 


Var$ = STR$(Wert) 

Var$ = STR$(Wert [.Stellen [.Real]]) 

Es wird ein Text-String mit der Länge gebildet, die der Anzahl 
der Ziffern des übergebenen Wertes im Dezimalformat ent¬ 
spricht. Wert kann in jedem beliebigen Zahlensystem angegeben 
werden. Als Hexadezimal-, Binär- oder Oktalzahl angegebene 
Werte werden vorher in das Dezimalformat umgewandelt. 

Die hiermit erzeugte Ziffernfolge ist keine Zahl mehr, die einen 
Wert darstellt, sondern lediglich ein String, der die einzelnen 
Ziffern des Wertes als Textzeichen enthält. STR$ bildet die Um¬ 
kehrfunktion zu VAL. 

Durch den optionalen Parameter Stellen kann eine Stellenanzahl 
vorgegeben werden (Vor-, Nachkommastellen und ggf. Dezimal- 
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punkt), auf die der gewandelte Wert begrenzt wird. Der optio¬ 
nale Parameter Real gibt an, auf wie viele Nachkommastellen 
der gewandelte Wert ggf. gerundet werden soll. Diese gerundeten 
Nachkommastellen gehen auf jeden Fall in den gelieferten Wert- 
String ein, auch wenn Wert eigentlich keine Nachkommastellen 
beinhaltet. Beispiele: 

PRINT STR$(572.6169,5,3) ergibt: 2.617 

PRINT STR$(6169,9,5) ergibt: 169.00000 


VALQ 


String = > Numerisch 


Var=VAL(Var$) 

Wandelt alle am Anfang eines Strings stehenden Zeichen, die 
sich zur Darstellung numerischer Werte eignen, in eine dezimale 
Realzahl um. 

Var$ ist eine beliebige Zeichenkette, ein String-Ausdruck oder 
eine String-Variable, deren Inhalt vom Anfang ausgehend 
daraufhin untersucht wird, ob Textzeichen enthalten sind, die 
einen Wert in einem der vier Zahlensysteme darstellen. Die 
Suche wird abgebrochen, wenn das String-Ende erreicht ist oder 
die Funktion auf ein Textzeichen trifft, das nicht wandelbar ist. 

Ist das erste Zeichen des Strings ein nicht wandelbares Text¬ 
zeichen oder ist der String leer, wird eine Null zurückgegeben. 
Beispiele: 

A$="> Str$(123456);" <" 

Print A$ ergibt: > 123456 < 

I 

A$="1011010 <-Binär" 

Print Val("£X"+AS) ergibt: 90 (= &X1011010) 

i 

A$="1141331 <-0ctal" 

Print Val("&0"+AS) ergibt: 312025 (= &01141331) 

A$="AF451DE «-Hexadezimal" 

Print Val("£H"+A$) ergibt: 183783902 (= &HAF451DE) 
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Print ValC'&HEEZeichen") 

A$="&X110123" 

AX=Val(A$) 

Print A% 

Print Val("2.37E+07") 


ergibt: 238 


(= &HEE) 


ergibt: 13 (= &X1101) 

ergibt: 23700000 (= 2.37E+07) 


VAL?0 Anzahl wandelbarer Textzeichen ermitteln 


Var=VAL?(Var$) 

Ermittelt ab Anfang von Var$ die Anzahl seiner Zeichen, die in 
numerische Werte konvertiert werden können (siehe VAL()). 
Var$ steht für eine beliebige Zeichenkette oder String-Variable, 
die auf die Anzahl ihrer wandelbaren Zeichen untersucht wer¬ 
den soll. Trifft die Funktion auf nicht wandelbare Zeichen, wird 
die Untersuchung abgebrochen. Beispiele: 

Print Val?("237E07") ergibt: 6 (Exponentialformat) 

I 

A$="&X110123E" 

Print Val?(A$) ergibt: 6 (inkl. Identifikator) 
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11. Feld-, Speicher- und Zeigeroperationen 

11.1 Feldoperationen 


ARRAYFILL { ARR } Feld mit Wert belegen 


ARRAYFILL Feld (),Var 

’Feld’ bezeichnet ein bereits beliebig dimensioniertes 
numerisches Feld (Integer, Real, Boole). Alle Elemente dieses 
Feldes werden mit dem Wert Var belegt. Var muß mit dem 
Feldtyp übereinstimmen (z.B. Integer zu Integer). 


Beispiel: Umständlich: Dim Feld%(20,32,16) 


For A%=0 To 20 !-. Füllt alle 

For B%=0 To 32 Elemente des 

For C%=0 To 16 - Arrays FeldX 

FeldX(AX,BX,CX)=237 mit dem Wert 

Next CX 237. 

Next BX 

Next AX !- 1 

GFA-Hethode: Dim FeldX(20,32,16) 

Arrayfill FeldX(),237 !- Tut dasselbe 


DELETE { DEL} Einzelelement aus Feld löschen 


DELETE Feld(lndex) 

DELETE Feld$(lndex) 

Löscht das einzelne Element 'Index’ aus dem Feld 'Feld’ bzw. 
’FeldS’. Alle darüberliegenden Elemente werden im Feld um eine 
Stelle nach unten versetzt. Das letzte Element enthält an¬ 
schließend den Wert Null bzw. bei String-Feldern einen Leer- 
String. DELETE ist die Umkehrung zu INSERT. 
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Beispiel: Vorher: 

0123456 (Index) 






\ / 



155 

1 1 

231 

663 

1 1 

725 

898 

/ \ 

112 

57 


Dann: • 

'v 

DELETE Feld(4) 

Nachher: 

0123456 (Index) 






(5) 

(6) 


155 

231 

663 

725 

112 

57 

0 


i _ i _ i _ i _ i ===----i -------1 -------1 


<-1 Letztes 

Element 
wird 0 


Feld (er) dimensionieren 


DIM 


DIM Arr1(lnd1 [,lnd2,...]) [,Arr2(lnd1 [,lnd2, 

Legt die Dimension(en) von Arrl (bzw. Arr2, Arr3 etc.) fest und 
reserviert hierfür Speicherplatz. ’Arr’ steht für beliebige nume¬ 
rische oder alphanumerische Felder. 

’lnd’ besagt, wie viele Elemente pro Dimension zugelassen sind. 
Bei mehrdimensionalen Feldern (z.B. DIM Feld(5,20,7)) ist die 
Anzahl der Elemente auf 65535, bei eindimensionalen Feldern 
(z.B. DIM Feld$(100)) nur durch die Größe des Arbeitsspeichers 
begrenzt. 

Achtung: Bei großen Dimensionierungen kann sich die Adres¬ 

senlage der übrigen Variablen - insbesondere bei 
String-Variablen - verschieben. Im Falle, daß 
Maschinenprogramme in String-Variablen abgelegt 
wurden und das Programm ohne vorherige 
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VARPTR-Abfrage aufgerufen wird, führt dies ggf. 
zum Absturz. Zur Speicherung der Routine verwen¬ 
det man daher besser INLINE (siehe dort). 


11.1.1 Aufbau eines mehrdimensionalen Feldes 

Stellen Sie sich bitte einen Schrank vor. Dieser Schrank wird nun 
in zwei Hälften geteilt, und zwar in eine rechte und eine linke 
Hälfte. Innerhalb der Hälften sind Schubladen untergebracht. 
Nehmen wir an, jede Hälfte besitzt zwei Schubladen. 

Diese Schubladen werden nun wiederum in einzelne Fächer 
unterteilt. Jede Schublade erhält drei Fächer. Wir haben nun also 
einen Schrank mit 12 Fächern (2*2*3) eingerichtet. 

Die entsprechende Dimensionierung dazu: 

DIM Schrank(l,l,2) -> b«i OPTION BASE 0 

DIM Schrank(2,2,3) -> bei OPTION BASE 1 

Sie wundern sich evtl., warum im ersten Fall nicht (2,2,3) steht. 
Das hat den Grund, daß Arrays immer mit dem Index 0 zu 
zählen beginnen, falls nicht durch OPTION BASE 1 das Null- 
Element eliminiert wurde. So wird im ersten Fall vorausgesetzt, 
daß als jeweils kleinster Index einer Dimension ein Null-Ele¬ 
ment vorhanden ist. 

Der angegebene Index bedeutet dann: "Dimensioniere bis Ele¬ 
ment X", also: 

Element 0 und 1 der ersten Dimension 

Element 0 und 1 der zweiten Dimension |-> DIM(1,1,2) 

Element 0, 1 und 2 der dritten Dimension --' 

Im folgenden gehe ich grundsätzlich davon aus, daß OPTION 
BASE 0 aktiv ist. In diesem Schrank sollen nun verschiedene 
"Dinge" untergebracht werden. In unserem Fall sind dies Zahlen 
(hier: Mengenwerte). Zur besseren Orientierung ordne ich den 
beiden Schrankseiten erst einmal Begriffe zu: 
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Linke Schrankseite -> Werkzeug (1D-Ir>dex=0) 
Rechte Schrankseite -> Bücher (1D-Index=1) 

/ Schrank / 


1. Dimension: Werkzeug Bücher 

/ 

I_I_I 

Den Schubladen der Werkzeug-Seite gebe ich die Aufschriften: 

1. Schublade -> Zangen (2D-Index=0) 

2. Schublade -> Sägen (2D-Index=1) 

Die Schubladen der Bücher-Seite bekommen die Namen: 

1. Schublade -> Klassik (2D-Index=0) 

2. Schublade -> Natur (2D-Index=1) 



.->| 1. Fach -> 'Kneifzangen* (3D-Index=0) | 


->| 2. Fach -> 'Rohrzangen' (3D-Index=1) | 


'->j 3. Fach -> 'Spitzzangen 1 (3D-Index=2) | 


->| in der Schublade 'Sägen' (Index 1 der 2.Dimension) | 


.->j 1. Fach -> 'Kettensägen' (3D-Index=0) | 
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'- ->| 2. Fach -> 'Bügelsägen' (3D-Index=1) | 

'->| 3. Fach -> 'Stichsägen' (30-Index=2) | 

I_I 

J Auf der 'Bücher'-Seite (Index 1 der 1.Dimension) |' 


.->| in der Schublade 'Klassik'CIndex 0 der 2.Dimension) | 

I . _ _I 

.->| 1. Fach -> 'Essays' (3D-Index=0) j 

'-|->| 2. Fach -> 'Novellen' (3D-Index=1) | 

'->j 3. Fach -> 'Romane' (3D-Index=2) | 

I_I 

'->| in der Schublade 'Natur' (Index 1 der 2.Dimension) | 

I - - f _I 



.->11. 

Fach 

-> 'Tiere' 

(3D-Index=0) 

l_ 

->[ 2. 

Fach 

-> 'Pflanzen' 

(30-Index=1) 

1 

'->i 3 . 

Fach 

-> 'Steine' 

(3D-Index=2) 


Bis hierhin sieht das vielleicht etwas übertrieben aus. Der Sinn 
der Sache ist aber der, daß nun anhand von sogenannten 
"Indizes" auf jedes einzelne Fach der untersten Ebene zugegrif¬ 
fen werden kann. 

Unter Index versteht man allgemein ein Unterscheidungsmerk¬ 
mal bzw. eine Kennzeichnung gleichartiger Größen, die dann 
statt durch ihren Namen durch einen ihnen zugewiesenen 
Tabellenwert (Tabellenposition = Index) identifiziert werden 
können. Z.B. 

Oberbegriff Tier’ 

1 = 'Haus-' 

2 = ’Nuti-’ 

3 = 'Raub-' 

4 = 'Schalen-' 

5 = 'Stachel-' 
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Statt des Begriffs 'Raubtier’ könnte man nun auch ’Tier(3)’ sagen 
und dann - um die Bedeutung von (3) zu erfahren - in der 
Tabelle unter dem Index 3 nachschauen. 

Stellt man sich für die Elemente 'Pflanzen', 'Romane' usw. in 
der untersten Dimension Speicherplätze im Computer vor, so 
kann man sich nun durch die Angabe der Indizes jederzeit In¬ 
formationen über den Inhalt -der Plätze verschaffen. Dieses ist 
vor allem dann wichtig, wenn Informationen abgelegt werden, 
die bestimmten 'Familien' zugeordnet werden sollen. 

Um nun z.B. den Inhalt des Faches "Pflanzen" zu ermitteln, kann 
man durch Ausgaben (z.B. PRINT Schrank( 1,1,0)), eine beliebige 
Zuweisung (z.B. A%=Schrank( 1,1,0)) oder Einbindung in einen 
Ausdruck (z.B. IF 2*Schrank(l,l,0)+10) dieses Fach lesen oder 
durch Schrank(l,l,0)=XYZ etwas darin ablegen. 

Um die Identifikation der einzelnen Schrankseiten, Schubladen 
und der darin enthaltenen Fächer zu vereinfachen, kann man 
den numerischen Indizes auch Variablennamen zuweisen: 


Werkseug=0 

Zangen=0 


Saegen=l 


Biicher=l 

Klassik=0 


Natur=l 


Kneiftangen=0 

Rohrsangen=l 

Spiticangen=2 

Kettensaegen=0 
Buegelsaegen=l 
Stichs aegen=2 


Essays=0 

Novellen=l 

Romane=2 


Tiere=0 

Pflanien=l 

Steine=2 
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Jetzt fällt es natürlich leicht, z.B. gezielt in Erfahrung zu brin¬ 
gen, wie viele Bücher zum Thema "Pflanzen" in meiner Biblio¬ 
thek stehen: 

IF Schrank(Buecher,Natur,Pflanzen)=0 
PRINT "Natur-Banause!" 

ENDIF 

oder: 

IF Schrank(Uerkzeug,Zangen,Robrzar>gen)>10 
PRINT "Na dam: fröhlichen Rohrbruch!" 

ENDIF 

Ich hoffe, daß Ihnen dieser Ausflug in die Dimensionen in Zu¬ 
kunft etwas dabei helfen wird, die - manchmal sehr - ver¬ 
zwickten Zusammenhänge bei mehrdimensionalen Feldern zu 
verstehen. Bei dem hier durchgespielten Beispiel habe ich die 
Dimensionstiefen in Grenzen gehalten, die sich noch relativ 
leicht nachvollziehen lassen. Stellen Sie sich zum Schluß bitte 
noch einmal etwas vor: 

Ein Gelände mit 100 Lagerhallen. In allen Lagerhallen stehen 60 
Regal-Blöcke zu je 50 Regalen. Jedes Regal ist vertikal in 200 
Spalten unterteilt und jede dieser Spalten in 40 Regalböden. 

Und zu guter Letzt stehen auf jedem Regalboden noch 20 
Kästen, wovon wiederum jeder in 10 Fächer aufgeteilt ist. 

DIM Lager(100,60,50,200,40,20,10) 

Die sich daraus ergebende Elementeanzahl ist zwar auf einem 
Amiga nicht zu verarbeiten (100*60*50*200*40*20*10 = 480 
Milliarden), aber sie gibt einen Ausblick auf die fast unbe¬ 
grenzten Einsatzmöglichkeiten von mehrdimensionalen Feldern. 
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DIM?Ö 


Menge der Feldelemente ermitteln 


Var=DIM?(FeldO) 


'Feld’ ist ein beliebiger numerischer oder alphanumerischer 
Feldname. DIM? liefert die Anzahl aller Elemente dieses Feldes. 
Bei nicht dimensionierten Feldern wird der Wert 0 geliefert. 
Beispiel: 


Dim FeldX(2,3,4) 

If Dim?(Feld%())>0 

Print "Das Feld hat ";Dim?(Feld%());" Elemente" 
Else 

Print "Das Feld ist nicht dimensioniert!" 

Endi f 


Feld (er) löschen 


ERASE { ERA } 


ERASE FeldO 
ERASE Feld 10 [,Feld20 

’Feld’ bezeichnet ein beliebiges Feld, das gelöscht werden soll. 
Die Dimensionierung wird aufgehoben und der dafür reservierte 
Speicherplatz wieder freigegeben. 

Außerdem ist es auch möglich, eine Liste von Feldern anzu¬ 
geben, die dann mit nur einem Befehl gelöscht werden. 

Felder, die nach ihrer Verwendung nicht mehr benötigt werden, 
sollten mit diesem Befehl sofort wieder gelöscht werden, um den 
durch sie belegten Speicherplatz wieder dem Programm zur 
Verfügung zu stellen. 

Eine wichtige Einsatzmöglichkeit besteht darin, Felder in allge¬ 
mein verwendbaren Prozeduren (Utilities) einzusetzen. Da nicht 
erwartet werden kann, daß für jedes Utility die Dimensionie- 





Feld-, Speicher- und Zeigeroperationen 


293 


rungen im Hauptprogramm vorgenommen werden, sollten diese 
also in der Prozedur selbst erfolgen. Nach Abschluß der Arbei¬ 
ten in dieser Prozedur wird das Feld wieder gelöscht, um beim 
nächsten Aufruf wieder neu dimensioniert werden zu können. 


INSERT { INS } Einzdelement in Feld einfügen 

INSERT Feld (Index)=Wert 
INSERT Feld$(lndex) = Text 

Fügt das einzelne Element Index in das Feld 'Feld’ bzw. ’FeldS’ 
mit dem zugewiesenen Wert bzw. String ein. Alle darüberliegen¬ 
den Elemente werden um eine Stelle nach oben versetzt. Das 
letzte Element des Feldes wird dabei aus dem Feld entfernt. 


Beispiel: 

0 

Vorher: 

1 2 

3 4 

5 

6 (Index) 

155 

1 1 

231 663 

■ i 

725 898 

1 1 --- 1 

112 

57 


dann: 


INSERT Feld(4)=429 >-' 

nachher: 

0 1 2 3 4 5 6 .(Index) 
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OPTION BASE { OPT BASE }FeM-Basi$etement bestimmen 


OPTION BASE Basis 

Basis bestimmt das Basis-Element aller Felder (0 oder 1). Die 
Basis kann im Programm mehrmals geändert werden, da sich die 
schon definierten Elemente dem neuen Index anpassen (z.B. 
OPTION BASE 1 -> A$(0) wird A$(l), A$(l) wird A$(2) etc.). 

Wurde ein Feld z.B. unter OPTION BASE 0 mit Dim Feld(5) 
eingerichtet, so ergibt Print Feld(6) eine Fehlermeldung, und das 
Element Feld(0) ist ohne weiteres ansprechbar. Wird jedoch an¬ 
schließend OPTION BASE 1 verfügt, so ist das vorher letzte 
Element Feld(5) nun ohne Fehlermeldung mit Feld(6) ansprech¬ 
bar, und das vorher erste Element Feld(0) ergibt eine Fehlermel¬ 
dung. 

Die Basis-Bestimmung wirkt sich auf alle dimensionierten Felder 
gleichzeitig aus. 


QSORT { QS } Feld (-Bereich) Quick-Sortierung 


QSORT Feld([Sign]) [,Anz [,Feld2%0]J 

QSORT Feld$([Sign]) [ WITH VorgabeO] [,Anz [,Feld2%0]] 

Es können Felder nach ihrer numerischen Größe oder alphabe¬ 
tischen Reihenfolge sortiert werden. Feld() ist dabei ein nume¬ 
risches Feld beliebigen Typs. Feld$() ist ein String-Feld. 

Das optionale "Sign" (innerhalb der Leerklammer, z.B. QSORT 
Feld(+)) ist entweder ein Plus- oder Minuszeichen, das die Sor- 
tierrichtug angibt. Sollen die Werte bzw. Strings mit dem 
höchsten Wert bzw. Buchstaben in Element 0 beginnend abstei- 
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gend sortiert werden, ist ein Minuszeichen einzusetzen. Das 
Pluszeichen oder keine Sign-Angabe bewirkt die aufsteigende 
Sortierung. 

Anz kann optional verwendet werden, um eine Elementanzahl zu 
bestimmen, bis zu der sortiert werden soll (z.B. 6 = von 0-5 
bei OPTION BASE 0 bzw. von 1 - 6 bei OPTION BASE 1). 
Außerdem kann optional ein 4-Byte-Integerfeld (Feld2%()) an¬ 
gegeben werden, dessen Elemente unabhängig von ihrem Inhalt 
parallel mit dem eigentlichen Sortierfeld mitsortiert werden. 

Bei String-Feldern kann durch WITH zusätzlich ein beliebiges 
Integerfeld (Vorgabe() => 1-, 2- oder 4-Byte-Integer) mit min¬ 
destens 256 Elementen bestimmt werden, dessen Elemente-In- 
halte die Reihenfolge der Sortierung vorgibt. Wären z.B. alle 256 
Vorgabe()-Elemente mit den ASCII-Werten in normaler 
Reihenfolge belegt (0-255), so kann Vorgabe() vernachlässigt 
werden. Werden dagegen z.B. die Zeichen a und A vertauscht, so 
steht A in der Sortierfolge über a (normalerweise umgekehrt), 
während alle anderen Zeichen normal sortiert werden. So kann 
eine völlig willkürliche Sortierfolge vorgegeben werden (siehe 
Anhang "ASCII-Tabelle"). 


Beispiel 1: 

Dirn Feld%(20) 

Print "unsortiert:" 
For I%=0 To 20 
Feld%(IX)=Rand(100) 
Print FeldX(IX) 

Next IX 
Qsort FeldXO 


I DIH Feld 
! 20mal 

I Zufällige Werte zuweisen 
I Und ausgeben 
! Nächstes Element 
I Feld sortieren 


Print At(15,1);"steigend sortiert:" 

For I%=0 To 20 I 20 sortierte Elemente 

Print At(15,IX+2);FeldX(IX) I Neu ausgeben 
Next IX 


Beispiel 2: 

Dim Feld%(20) 

Print "unsortiert:" 
For IX=0 To 20 
Feld%(IX)=Rand( 100) 
Print FeldX(IX) 

Next IX 

Qsort FeldX(-),5 


! DIH Feld 
I 20mal 

! Zufällige Werte zuweisen 
! Und ausgeben 
! Nächstes Element 
! 5 Elemente "fallend" sortieren 
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Print At(15,1);"faUend sortiert:" 

For I%=0 To 20 ! 20 Elemente 

Print At(15,IX+2);FeldX(IX) I Neu ausgeben 
If IX<5 I Im Sort-Bereich? 

Print At(20,IX+2sortiert" 

Else 

Print At(4,IX+2);".>" 

Endif 
Next IX 


Beispiel 3: 

Dirn FeldX(20),Feld2X(20) I DIH Feld und Parallelfeld 
Print "unsortiert: Indexfeld:" 

Print Spc(27);"i" 

For IX=0 To 20 I 20mal 

FeldX(IX)=Rand(100) I Zufällige Werte zuweisen 

Feld2X(IX)=IX I Parallelfeld indizieren 

Print FeldX(IX),Feld2X(IX) ! Und ausgeben 
Next IX I Nächstes Element 

Qsort Feld%(+),15,Feld2X() ! 15 Elemente + Index sortieren 
A$="| steigend sortiert: Indexfeld (mitsortiert):" 

Print At(28,1);AS 

For IX=0 To 20 I 20 Elemente 

Print At(28,IX+3);"j ";FeldX(IX) I Feld neu ausgeben 
Print At(52,IX+3);Feld2X(IX) I Index neu ausgeben 
If IX<15 ! Im Sort-Bereich? 

Print At(34,IX+3);" -- sortiert 
Else 

Print At(34,IX+3);" - unsortiert 
Endi f 
Next IX 


Beispiel 4: 

In den ersten 3 Beispielen können Sie statt des 4-Byte-Integer- 
feldes Feld%() ebensogut andere numerische Feldtypen oder ein 
String-Feld einsetzen. Der Sortiermodus und das Ergebnis wür¬ 
den dabei prinzipiell gleich bleiben, nur daß bei String-Feldern 
nicht nach numerischer Reihenfolge, sondern nach der Reihen¬ 
folge der den Zeichen entsprechenden ASCII-Werten sortiert 
würde. Das folgende Beispiel demonstriert das Sortieren nach 
einer beliebigen Reihenfolge. 

Dirn Feld$(40),Feld2X(40),Vorgabej(256) ! DIMs 
Print "unsortiert: Indexfeld:" 

Print Spc(27);"j" 

X$-"aÄ6ÖüÜß" ! Umlaute und Eszet 

X2$="AAOOUUS" I Ersatzkriterium 

For IX=0 To 255 I Alle ASCIIs 





Feld-, Speicher- und Zeigeroperationen 


297 


Vorgabej(IX)=IX I In Sortiervorgabe einsetzen 

If InstrC'abcdefghijklmnopqrstuvwxyz",Chr$(IX)) 

1 ! Kleinbuchstaben? 

Vorgabe|(IX)=Asc(Chr$(IX-32)) ! Durch Großbuchstaben 

• ! Ersetzen 

Endi f 

If Instr(X$,ChrS(IX)) I Umlaut oder Eszet? 

Vorgabej(IX)=Asc(MidS(X2S,Instr(XS,Chr$<IX)),1)) 

1 ! Durch Ersatzkriterium 

Endif I Ersetzen 

Next IX 

For IX=0 To 40 I 40mal 

For JX=0 To 8 18 Zeichen je String 

XX=Rand(59)+65 I ZufalIs-ASCII 

' A-Z = 26 Zeichen 

• a-z = 26 Zeichen 

1 Äöüäöüß = 7 Zeichen 


1 insgesamt = 59 Zeichen. 

I 

' Rand(59) wählt also einen Wert zwischen 0 und 58. 

' Dieser Wert wird anschließend un 65 erhöht 
1 -> ASCII-Uert von 1 A• ist 65. 

If XX>115 1 XX größer A-Z und a-z? 

XX=Asc(Mid$(X$,XX-116,1))! Dann Umlaut oder Eszet 
Else if XX>90 ! XX zwischen a-z? 

Add XX,6 ! XX+6 = mindesten AscC'a") 

Endi f 

Feld$(IX)=FeldS(IX)+ChrS(XX) ! Zeichen einbinden 
Next JX 

Feld2X(IX)=IX ! Parallelfeld indizieren 

Print Feld$(IX),Feld2X(IX) ! Und ausgeben 

Next IX ! Nächstes Element 

Qsort Fetd$() With Vorgabej(),41,Feld2X() 

1 Alle Elemente + Index nach Vorgabe steigend sortieren 
A$="! steigend sortiert: Indexfeld (mitsort.):" 

Print At(28,1);A$ 

For IX=0 To 40 I 20 Elemente 

Print At(28,IX+3);"| ";Feld$(IX) ! Feld neu ausgeben 
Print At(50,IX+3);Feld2X(IX) ! Index neu ausgeben 
Next IX 
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SSORT { SS } Feld (-Bereich) Shell-Sortierung 


SSORT Feld([Sign]) [,Anz [,Feld2%0]] 

SSORT Feld$([Sign]) [ WITH VorgabeOJ l,Anz [,Feld2%0]] 

Erläuterungen zu QSORT gelten hier analog (siehe dort). Der 
wesentliche Unterschied zwischen beiden Sortier-Algorithmen 
ist, daß QSORT rekursiv arbeitet und dadurch wesentlich mehr 
Speicherplatz benötigt als das SSORT-Verfahren. Dafür ist 
SSORT in den meisten Fällen wesentlich langsamer. 

Das Shellsort-Verfahren (es wurde von einem Engländer namens 
Shell entwickelt) ist aufgrund seines Aufbaus eher dazu geeignet, 
schon vorsortierte Felder zu sortieren, was beim Quicksort-Ver¬ 
fahren unter Umständen sogar eine Zeitverzögerung bewirken 
kann. In den meisten Fällen hängt es jedoch von Ihrem persön¬ 
lichen "Geschmack", dem noch verfügbaren Speicher und der 
jeweiligen Situation ab, welcher Sortierbefehl für Sie in Frage 
kommt. 


11.2 Speicheroperationen 


ABSOLUTE { AB } Variable auf Adresse setzen 


ABSOLUTE Var,Adresse 

Die Adresse der numerischen Variablen Var (beliebiger Typ) 
wird auf die absolute Speicheradresse Adresse gelegt. 

Adresse ist in jedem Fall identisch mit VARPTR(Var): 

ABSOLUTE VarX,9952 
PRINT 9952=V:Var% 

-> Ausgabe = -1 (TRUE) 
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Eine Zuweisung zu einer ABSOLUTE-Variablen ist gleichbe¬ 
deutend mit: 


POKE Adresse,Bytewert -> Bei Byte-Variablen Varj 
DPOKE Adresse,Uordwert -> Bei Uord-Variablen Var& 

LPOKE Adresse,Longwert -> Bei Long-Variablen VarX 

Die Abfrage einer ABSOLUTE-Variablen ist gleichbedeutend 
mit: 

Bytewert=PEEK(Adresse) -> Bei Byte-Variablen Varj 
Wordwert=DPEEK(Adresse) -> Bei Uord-Variablen Vari 
Longwert=DPEEK(Adresse) -> Bei Long-Variablen VarX 

Bei Real- oder Boole-Variablen ist das jeweilige Zahlenformat 
zu beachten. ABSOLUTE mit Feld- und String-Variablen ist 
nicht möglich. ABSOLUTE ist innerhalb von PROCEDUREs 
und FUNCTIONs mit zuvor als lokal definierten Variablen 
ebenso möglich wie auf globaler Ebene. Nach Rückkehr zum 
Hauptprogramm wird die "Absolutierung" jedoch wieder aufge¬ 
hoben. 

Statt des Kommas zwischen Var und Adresse kann auch ein 
Gleich-Zeichen (ABSOLUTE Var%=Adresse) verwendet werden. 


BMOVE { B } Speicherblock kopieren 


BMOVE Quelle,Ziel,Anz 

Ab der Adresse Quelle werden Anz Bytes gelesen und an den 
mit der Adresse Ziel beginnenden Bereich kopiert. Quell- und 
Zielbereich können sich dabei auch überschneiden. 

Bei Anz ist zu beachten, daß nie der Wert 0 auftreten darf. Wird 
als Anzahl der zu kopierenden Bytes keine Konstante verwendet 
(z.B. ...,X_bytes*Zeilen), so kann es unter ungünstigen Umstän¬ 
den dazu kommen, daß als Anz-Parameter Null übergeben wird. 
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In solchen Fällen ist meistens ein gnadenloser Absturz die Folge. 
Um dies zu vermeiden, bietet sich die Funktion MAX(l,Anz) 
an, die dafür sorgt, daß mindestens ein Byte übertragen wird. 

BMOVE arbeitet bei geraden Adressen schneller als bei un¬ 
geraden. BMOVE ist ein Befehl, ohne den professionelles Pro¬ 
grammieren fast undenkbar wäre. Bei älteren BASIC-Dialekten 
bestand ein wesentlicher Unterschied zu den maschinennahen 
Sprachen bzw. Maschinensprache darin, daß kein schneller 
Speicherblock-Transfer möglich war. Speicherblöcke mußten 
durch FOR..NEXT-Schleifen und PEEK/POKE Byte für Byte 
übertragen werden. BMOVE macht dem ein Ende. Das Einsatz¬ 
gebiet ist so weit gefächert, daß es der Phantasie des Einzelnen 
überlassen bleibt, was er mit diesem mächtigen Befehl anfängt. 
An Ideen dürfte es da allerdings nicht mangeln. 


BYTE{}, CARDO, LONG{} 


Speicherinh. lesen BYTE{}= 1 Byte schreiben CARD{}= 2 Byte 
schreiben LONG{}= 4 Byte schreiben 

Syntax (Zuweisung an Adresse/vgl. D-L-POKE): 

BYTE{Adresse} = Wert = > Schreibt ein Byte 
CARD{gerade Adresse}=Wert = > Schreibt zwei Byte (Word) 

LONG{gerade Adresse}=Wert = > Schreibt vier Byte (Long) 

Syntax (Lesen aus Adresse/vgl. D-L-PEEK): 

Var=BYTE{Adresse} = > Liest ein Byte 

Var=CARD{gerade Adresse} = > Liest zwei Byte (Word/(Cardinal) 
Var=LONG{gerade Adresse} = > Liest vier Byte (Long) 

Ab Adresse werden dem Format entsprechend viele (1, 2, 4) 
Bytes gelesen bzw. geschrieben. Bei CARD{) und LONG{) dür¬ 
fen nur gerade Adressen verwendet werden. 

Sollen 4-Byte-Werte gelesen werden, kann die Bezeichnung 
LONG weggelassen werden (z.B. (123456) liest 4 Byte ab 
Adresse 123456). 
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CHAR{y C-Text lesen CHAR{} = ...schreiben 


Var$ = CHAR{Adresse} = > C-Text lesen (Funktion) 

CHAR{Adresse} = Expr$ = > C-Text schreiben 

Es wird ein String im C-Format gelesen bzw. geschrieben. Bei 
der Schreibfunktion wird dem String Expr$ automatisch ein 
Null-Byte angehängt und der String an Adresse geschrieben. Die 
Lesefunktion liest ab Adresse, bricht beim ersten gefundenen 
Null-Byte ab und liefert den bis dahin gelesenen Text zurück. 


DOUBLE{} f SINGLE{} 


IEEE-Double/Single-Realformat lesen DOUBLE{} = , SINGLE{}= ... 
schreiben { DO }= }, { Sl }= } 

Syntax (Lesen aus Adresse): 

Realvar=DOUBLE{gerade Adresse} => 8-Byte-IEEE-Realzahl 
Realvar=SINGLE{gerade Adresse} => 4-Byte-IEEE-Realzahl 
Syntax: (Schreiben an Adresse): 

DOUBLE{gerade Adresse}=Wert => 8-Byte-IEEE-Realzahl 
SINGLE{gerade Adresse} = Wert => 4-Byte-IEEE-Realzahl 

Beim Schreiben wird der angegebene 8- bzw. 4-Byte-Wert als 
Wert im IEEE-Format interpretiert und so an die angegebene 
Adresse geschrieben. Soll ein Wert gelesen werden, wird intern 
der Inhalt der auf Adresse folgenden 4 bzw. 8 Byte als Wert im 
IEEE-Format interpretiert und in Realvar zurückgegeben. 
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FLOATO 


8 Byte in GFA-3.&-BASIC-Realformat lesen FLOAT{}= 8 Byte in 
GFA-3.0-Realformat schreiben 

Realvar=FLOAT{gerade Adresse} => Lesen (Funktion) 
FLOAT{gerade Adresse}=Wert = > Schreiben 

Beim Schreiben wird der angegebene Wert als Wert im 8-Byte- 
Realformat des V3.0-GFA-BASICs interpretiert und so in die - 
auf Adresse folgenden - 8 Bytes geschrieben. Soll ein Wert ge¬ 
lesen werden, so wird intern der Inhalt der auf Adresse folgen¬ 
den 8 Byte als V3.0-Realwert interpretiert und in Realvar 
zurückgegeben. 


INT{} /WÖRD{} 


2 Byte als Vorzeichen-Integer schreiben; lesen INT{}= /WORD{} = 
... schreiben 

lntvar=INT{Adresse} => Lesen (Funktion) 
lntvar=WORD{Adresse} = > Lesen (Funktion) 

INT{Adresse}=Wert = > Schreiben (Befehl) 

WORD{Adresse}=Wert = > Schreiben (Befehl) 

Bei INT{) und WORD{) handelt es sich um zwei Namen der¬ 
selben Funktion bzw. desselben Befehls. Beim Schreiben wird 
der angegebene Wert als Wert im vorzeichenbehafteten 2-Byte- 
Integerformat interpretiert und so in die - auf Adresse folgen¬ 
den - 2 Bytes geschrieben. Soll ein Wert gelesen werden, wird 
intern der Inhalt der auf Adresse folgenden 2 Byte als vor¬ 
zeichenbehafteter 2-Byte-Integerwert interpretiert und in der 
Aufnahmevariablen Intvar (beliebiger Typ) zurückgegeben. 





Feld-, Speicher- und Zeigeroperationen 


303 


Vorzeichenbehaftete 2-Byte-Werte können nur im Bereich von - 
32768 (&X 1000000000000000) bis 32767 (&X0111111111111111) 
liegen. Ist also das höchste Bit (Bit 15) der beiden auf Adresse 
folgenden 16 Bits gesetzt, so ist der gelieferte Wert negativ. Der 
sich aus den untersten 15 Bits ergebende positive Normal-Inte- 
gerwert (Wert And (2 A 15-1)) wird dann zu -32768 addiert und 
ergibt so den gelieferten Minuswert. 

Wird als Intvar eine Byte-Variable (z.B. Var|) angegeben, kann 
damit nur ein vorzeichenloser Wert von 0 - 255 aufgenommen 
werden. 


PEEK, DPEEK, LPEEK Speicherinhalt auslesen 


Var=PEEK(Adresse) = > Liest ein Byte 
Var=DPEEK(gerade Adresse) = > Liest zwei Byte (Word) 
Var=LPEEK(gerade Adresse) = > Liest vier Byte (Long) 

Ab Adresse werden dem Format entsprechend viele (1,2 oder 4) 
Bytes gelesen. Bei DPEEKQ und LPEEK() dürfen nur gerade 
Adressen verwendet werden. 


POKE,DPOKE,LPOKE { PO,DP,LP } Speicherinhalt ändern 


POKE Adresse,Byte = > Schreibt ein Byte 

DPOKE gerade Adresse,Word = > Schreibt zwei Byte (Word) 

LPOKE gerade Adresse,Long = > Schreibt vier Byte (Long) 

Schreibt den angegebenen Wert (Byte, Word, Long) im jeweili¬ 
gen Format in die ab Adresse folgenden 1, 2 oder 4 Bytes. Bei 
DPOKE und LPOKE dürfen nur gerade Adressen verwendet 
werden. 
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Stellen Sie beim Experimentieren mit den POKEs sicher, daß Sie 
nicht unbeabsichtigt in wichtige Bereiche des Systems oder des 
Interpreters hinein’poken’. Auch wenn das nicht immer sofort 
mit einem Absturz endet, können durch falsche Daten in diesen 
Bereichen Fehlfunktionen ausgelöst werden, die sich erst nach 
geraumer Zeit bemerkbar machen. Diese Fehlfunktionen sind im 
Endeffekt wesentlich gefährlicher als ein Absturz, da dadurch 
auch beim Laden und Speichern Daten unbemerkt "beschädigt" 
werden können, während man sich in Sicherheit wähnt. 

Lassen Sie also bitte grundsätzlich bei allen Speichermanipula¬ 
tionen äußerste Vorsicht walten! Sollte Ihnen ein POKE mal 
"verloren gehen", (wenn also seine Wirkung nicht nachvollziehbar 
ist), ist es in den meisten Fällen angebracht, die Daten (Pro¬ 
gramm etc.) so schnell wie möglich auf Disk zu sichern und 
dann einen Reset auszulösen, ehe Schlimmeres folgt. 


11.3 Speicherverwaltung 


INLINE {INL } BASIC-interne Speicherreservierung 


INLINE Adresse%,Bytes 

Reserviert innerhalb des Programm-Listings einen Speicher¬ 
bereich von maximal 32700 Bytes. Dazu wird in 'Bytes 1 die ge¬ 
wünschte Größe angegeben. Adresse% ist eine 4-Byte-Integer- 
Rückgabevariable (keine Feldvariable). Trifft das Programm auf 
eine INLINE-Zeile, so wird darin vom BASIC die aktuelle 
Startadresse des INLINE-Speichers geliefert. Sonst geschieht 
nichts. Ob etwas im Speicher ist, bzw. was Sie mit der Adresse 
und diesem Speicher anfangen, hängt davon ab, was Sie bei der 
Programmerstellung in diesen Speicher geladen haben. 

Die Besonderheit dieses Befehls besteht nämlich darin, daß 
schon der Editor auf die Eingabe einer INLINE-Zeile reagiert. 
Überall dort, wo eine INLINE-Zeile geschrieben wurde und 
durch <Return> oder eine andere Editorfunktion verlassen wird. 
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wird im Programmspeicher ein Bereich mit der angegebenen 
Größe reserviert. Wenn Sie nun das Programm mit der Editor¬ 
funktion Save bzw. SAVE oder PSAVE abspeichern, werden 
diese INLINE-Speicher als Programmbestandteil mitsamt Inhalt 
mit abgespeichert. Beim nächsten Laden durch Load bzw. LOAD 
werden die INLINE-Speicher ebenfalls mitgeladen, sie sind dann 
unverändert wieder verfügbar. 

Mit der Editorfunktion Save.A bzw. dem Befehl LIST wird nur 
die Zeile, aber nicht der INLINE-Speicher gesichert. Beim 
Laden eines ASCII-Listings mit Merge wird zwar wieder der 
Speicher reserviert, aber er ist dann ohne Inhalt. 

In einer INLINE-Befehlszeile ist kein !-Kommentar möglich, da 
an Stelle des Kommentars intern der INLINE-Speicher gelegt 
wird. Beim ersten Anlegen eines Speichers wird dieser mit Null- 
Bytes gefüllt. Wird eine bestehende INLINE-Zeile aus dem Pro¬ 
gramm gelöscht, wird auch automatisch der Speicher wieder an 
das BASIC zurückgegeben. 

Wird dagegen eine bereits bestehende INLINE-Zeile nachträglich 
verändert (neuer Variablename oder neue Speichergröße), fragt 
der Interpreter zuerst nach, ob der alte INLINE-Speicher ge¬ 
löscht werden soll. Wird diese Abfrage mit "OK" beantwortet, 
wird der alte Speicher gelöscht und ein neuer - den neuen An¬ 
gaben entsprechender - Speicher eingerichtet. 

Steht der Cursor auf einer fertigen (schon gecheckten) INLINE- 
Zeile, kann man die <Help>-Taste drücken. Das können Sie 
sonst natürlich auch, nur hat es dann keinen Zweck. Drücken 
Sie also die <Help>-Taste, während der Cursor auf einer 
INLINE-Zeile steht, so erscheint eine Menüzeile. 

Mit Mausklick auf Load kann eine beliebige Datei in den reser¬ 
vierten Bereich geladen werden (z.B. Maschinen-Code, Bild¬ 
dateien etc.). Mit Save wird der INLINE-Speicher auf Diskette 
gesichert. Dump ermöglicht die Ausgabe des INLINE-Inhalts in 
2-Byte-Hexwerten (mit Offset-Angabe) auf dem Drucker, und 
Clear löscht (ohne Sicherheitsabfrage) den INLINE-Speicher. 
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Beim Speichern wird der INLINE-Datei - sofern keine andere 
angegeben wurde - die Extension .INL "verpaßt". Beim Laden 
wird ebenfalls die Auswahl-Vorgabe .INL voreingestellt. Es 
kann jedoch jede beliebige Datei geladen werden. Die zu 
ladende Datei sollte entweder genauso groß wie der INLINE- 
Speicher oder größer sein. Dateien, die den INLINE-Speicher 
nicht ganz füllen, werden mit der Meldung "File-Ende erreicht" 
abgewiesen. Dateien mit einer Länge, die größer als der 
INLINE-Speicher ist, werden bei der INLINE-Länge abge¬ 
schnitten. 

Noch einmal das Ganze in Stichpunkten: 

1. INLINE-Zeile schreiben (Rückgabe-Variable und Größe 
angeben); wenn der INLINE-Speicher gefüllt, gesichert, 
gedruckt oder gelöscht werden soll: 

2. Cursor auf INLINE-Zeile und <Help> drücken. 

3. Menü-Funktion wählen. 


MALLOCO 


System-Speicher-Reservierung 


Back = MALLOC(Anz, Art) 

MALLOC reserviert ’Anz’ Bytes an Systemspeicher. Dieser 
Speicherbereich ist anschließend gegen den Zugriff von anderen 
(parallel ablaufenden) Programmen aus geschützt. Als Rück¬ 
gabewert erhält man bei durchgeführter Reservierung die 
Startadresse des reservierten Bereichs (im Falle eines Fehlers 
enthält ’Back’ den Wert Null). Diese Adresse sollte man sich un¬ 
bedingt merken, damit der Speicher später auch wieder (mit 
MFREE) freigegeben werden kann. 


Hinweis: Der Wert in ’Anz’ wird von MALLOC immer auf 

das nächste Vielfache von 8 aufgerundet. 
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Die Variable 
Speicher sein 

Art=2 


Art=4 

Art=l 


’Art=l’ 

Art=65536 


’Art’ bestimmt, welcher Art der zugewiesene 
soll: 

Der zu reservierende Speicherbereich soll im sog. 
Chip-Memory liegen. Chip-Memory ist der untere 
512-Kilobyte-Bereich des Speichers. Nur dieser 
Bereich kann von den Spezialchips zur Grafik- 
und Sounderzeugung angesprochen werden! Zur 
Speicherung von Grafik- und Sounddaten müssen 
Sie also unbedingt diese Art von Speicher reser¬ 
vieren lassen. 

Der zu reservierende Bereich soll sich außerhalb 
des Chip-Memories im sog. Fast-Memory befin¬ 
den. Das Ganze hat natürlich nur dann einen 
Sinn, wenn Sie auch über mehr als 512 Kilobyte 
Gesamtspeicher verfügen. 

Der zu reservierende Bereich darf - nachdem er 
festgelegt wurde - nicht mehr verschoben werden. 
In der momentanen Version des Betriebssystems 
ist es zwar noch nicht vorgesehen, einmal reser¬ 
vierten Speicher nachträglich zu verschieben. Aus 
Kompatibilitätsgründen empfiehlt es sich aber, 
diese Speicherart trotzdem zu wählen, insbeson¬ 
dere dann, wenn Sie den reservierten Speicher 
längere Zeit benötigen. 

Kann durch ODER-Verknüpfung mit den ande¬ 
ren Speicherarten verknüpft werden. ’Art= 1 OR 
2’ zum Beispiel reserviert nicht verschiebbares 
Chip-Memory. 

Der reservierte Speicherbereich wird mit Nullen 
aufgefüllt. Diese Speicherart kann mit allen 
anderen durch ODER-Verknüpfung kombiniert 
werden. 
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Hinweis: Falls Art weder die Kennung für Chip- noch für 

Fast-Memory enthält (z.B. ’Art=l’; Bereich darf nicht 
verschoben werden, wo er liegt, ist aber egal), so 
wird zuerst versucht, Fast-Memory zu belegen. Wenn 
sich dort kein genügend großer freier Bereich mehr 
findet, wird Chip-Memory reserviert. 

Beispiele: 

Back=MALLOC(1000,4 OR 65536) 

Belegt 1000 Byte außerhalb des Chip-Memories und füllt den 
reservierten Bereich mit Nullen auf. 

Back=MALLOC(32000,2) 

Reserviert 32000 Byte im Chip-Memory 
Back=MALLOC(150,2 OR 1 OR 65536) 

Belegt 150 Byte nicht verschiebbares Chip-Memory und füllt 
den reservierten Bereich mit Nullen auf. 


MFREEQ MALLOC()-Speicher freigeben 


Back = MFREE(Adresse,Anz) 

Gibt den durch MALLOCO reservierten Speicher wieder frei. In 
'Adresse’ wird die Startadresse des freizugebenden Bereichs an¬ 
gegeben (bei MALLOC()-Aufruf merken), in ’Anz’ muß die 
Größe des Bereichs übergeben werden. In 'Back' wird die Größe 
des freigegebenen Bereichs (also Anz) zurückgegeben. 

Vorsicht: Bitte achten Sie sorgfältig darauf, daß die an MFREE 
übergebenen Parameter auch wirklich stimmen! Geben Sie zum 
Beispiel eine falsche Adresse oder (in Anz) eine falsche Be¬ 
reichsgröße an, so bekommen Sie unweigerlich einen Systemab¬ 
sturz (Guru-Meditation). 
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RESERVE { RESE } BAStC-Art>eH$$peicher festlegen 


RESERVE [Anz] 

’Anz’ gibt die neu einzurichtende Größe des BASIC-Arbeits- 
speichers (Programm+Variablen) in Bytes an. Voreingestellt sind 
64 KByte. Dieser Wert wird auch genommen, wenn man bei 
RESERVE den Parameter Anz wegläßt. 

Achtung: Durch RESERVE wird der Variablenspeicher kom¬ 

plett gelöscht! 


11.4 Zeigeroperationen 


Variablen-Pointer 


Var=*Var 

Var=*Feld() 

Wird ein Variablenname Var bzw. Feld() beliebigen Typs (siehe 
TYPE) auf diese Art als Zeiger gekennzeichnet, wird nicht der 
Variableninhalt, sondern die Variablenadresse übergeben. Bei 
Feldern und Strings ist dies der zugehörige Descriptor (-> 
ARRPTR(X() oder ARRPTR X$), bei numerischen Variablen 
die Adresse, an welcher der Variableninhalt zu finden ist. 


Beispiel 1: 


A%=12 ! AX mit 12 belegen 

B%=*A% ! Pointer auf AX in BX speichern 

*BX=33 ! Indirekt AX mit 33 belegen 

Print "Variablenadresse AX (über Pointer): ";*AX 
Print "Variablenadresse AX (über VARPTR) : ";Varptr(AX) 
Print "Variablenadresse AX (in BX) : ";8X 

Print "Variableninhalt AX (direkt) : ";AX 
Print "Variableninhalt AX (indirekt) : ";lpeek(BX) 
Beispiel 2: 
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Var$="GFA-BASIC" ! String-Variable belegen 

Var%=5 ! 4-Byte-Integervariable belegen 

Gosub Proc(*Var$,*Var%) ! Proc-Aufruf mit Pointer-Variablens 
Print VarS.VarX I Globale Variablen ausgeben 

Procedure Proc(Para1X,Para2X) ! Kopf mit Pointer-Aufnähme 
Local LvarS,Lvar,LvarX,IX ! Lokale Variablen vorbereiten 
For IX=0 To Dpeek(Para1X+4)-1 ! String-Länge aus Descriptor 
ZX=Peek(Lpeek(Para1X)+IX) ! Zeichen lesen (mittels 
1 ! des Descriptors durch PEEK) 

• Lvar$=Lvar$+Chr$(ZX) ! Lokalen String bilden 

Next IX ! Nächstes Zeichen 

If Type(Para2X)=0 ! Para2X=Realvariable? (siehe TYPEO) 

Bmove Para2X,Varptr(Lvar),8 ! 8 Bytes in die lokale 
1 ! Realvariable übertragen 

*Para1X=String$(3,Lvar$)+" / 2‘"+StrS(Lvar)+" = 11 
1 ! String bilden und zurückgeben 

*Para2X=2'Lvar ! Ergebnis berechnen und zurückgeben 

Endif 

If Type(Para2X)=2 

Lpoke Varptr(LvarX),Lpeek(Para2X) ! 4 Bytes in die Lokale 
1 I Integer-Variable übertragen 

*Para1X=String$(3,Lvar$)+" / 2‘"+Str$(LvarX)+" = " 

• ! String bilden und zurückgeben 

*Para2X=2‘LvarX ! Ergebnis berechnen und zurückgeben 

Endi f 
Return 

Für die Variablen- und Feldübergabe an Unterprogramme eignet 
sich dagegen VAR. Hiermit ist es möglich, die Variablen und 
Felder "direkt" zu übergeben. Sie sind dann gleichzeitig 
Übergabevariablen und Rückgabevariablen. Eine Übernahme der 
Variableninhalte wie in Beispiel 2 ist hier nicht mehr nötig. 


AR R PTR String-/Fetd-Descriptoradresse ermitteln 


Var=ARRPTR(Var$) 

Var=ARRPTR(FeldO) 

Liefert die Anfangsadresse des String- bzw. Feld-Descriptors 
(siehe Erläuterungen im Anhang "Variablenorganisation/-typen") 
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VARPTR Variablen-Adresse ermitteln { V:} 


Var=VARPTR (Var) 

Liefert bei numerischen Variablen deren Adresse bzw. bei 
String-Variablen die Adresse des ersten Zeichens. Var steht für 
jede beliebige Variable (auch Feldelement). Es kann auch V: als 
Abkürzung verwendet werden (z.B. PRINT V:A$). 

Beispiel: 


A$="BASIC" I String setzen 

AdrX=Varptr(AS) ! String-Adresse holen 

For IX=0 to 5 ! 5 Zeichen 

Print ChrS(Peek(ADRX+IX)); ausgeben 
Next IX 


11.5 Die Exec-Bibliothek des Amiga 

Die Exec-Bibliothek beinhaltet in der überwiegenden Mehrzahl 
Funktionen zur Multitasking-, zur Interrupt- und zur Speicher¬ 
verwaltung des Amiga. Dinge also, mit denen man sich in GFA- 
BASIC - zum Glück - nur äußerst selten befassen muß. 

Um die Funktionen der Exec-Bibliothek erfolgreich anwenden 
zu können, sind detaillierte Kenntnisse über Aufbau und Funk¬ 
tionsweise von AmigaDOS erforderlich, die den Rahmen dieses 
Buches bei weitem sprengen würden. Bitte nehmen Sie es mir 
also nicht übel, wenn ich im folgenden die einzelnen Funktionen 
nur in sehr knapper Form vorstelle. 

Wer mehr wissen möchte, der sollte einmal einen Blick in 
’Amiga Intern’, 'Intern 2’ oder in das große AmigaDOS-Buch 
werfen. 

Und bitte denken Sie immer daran: Viele der Exec-Routinen 
beeinflussen die elementarsten Abläufe innerhalb des Amiga! 
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Wenn da etwas schiefläuft, bekommen Sie in vielen Fällen nicht 
einmal mehr eine Guru-Meditation. 

Für alle, die es dennoch wagen wollen, die Routinen zu nutzen, 
noch ein Flinweis: Alle Exec-Routinen lassen sich von GFA- 
BASIC aus jederzeit wie eine GFA-BASIC-Funktion ansprechen. 
Irgendwelche Öffnungszeremonien, wie man sie von Amiga- 
BASIC kennt, sind nicht erforderlich. 

Die verfügbaren Funktionen im einzelnen: 

SetTaskPri Priorität eines Tasks ändern 
Prioralt = SetTaskPri(Task,Priorneu) 

Gleich zu Anfang die vielleicht interessanteste Funktion. 
SetTaskPri ändert die Priorität (-128 bis +127) eines Tasks. (In 
’Prioralt’ wird die alte Priorität zurückgegeben.) 

Dazu einige Erläuterungen: Auch wenn es so scheint, als ob der 
Amiga in der Lage wäre, mehrere Programme gleichzeitig zu 
verarbeiten (Stichwort: Multitasking), wird in Wirklichkeit zu 
einem bestimmten Zeitpunkt immer nur ein Programm abge¬ 
arbeitet. Der Trick beim Multitasking besteht einfach darin, 
zwischen den einzelnen Programmen in so schneller Folge um¬ 
zuschalten, daß für den Anwender der Eindruck entsteht, als 
würden alle Programme gleichzeitig ablaufen. Jedes Programm 
läuft dazu in einem sog. Task. Das Umschalten zwischen den 
einzelnen Tasks besorgt das Betriebssystem. 

Jeder Task erhält einen bestimmten Anteil an Rechenzeit. Im 
einfachsten Fall wird die Rechenzeit zwischen den einzelnen 
Tasks gleichmäßig aufgeteilt. Sind also zum Beispiel drei Tasks 
gleichzeitig aktiv, so erhält jeder Task ein Drittel der Rechenzeit 
zugeteilt. In vielen Fällen möchte man diese lineare Aufteilung 
der Rechenzeit jedoch vermeiden. Ein Beispiel: Nehmen wir 
einmal an, Sie arbeiten mit zwei GFA-BASIC-Programmen 
gleichzeitig. Das eine Programm führt komplexe mathematische 
Berechnungen durch, während das andere Programm gerade eine 
Grafik zu Papier bringt. Wenn Sie nicht gerade über einen 
Laserdrucker verfügen, dürfte das zweite Programm die meiste 
Zeit damit beschäftigt sein, auf den Drucker zu warten, bis 
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dieser jeweils seinen Datenpuffer ausgedruckt hat. Hier wäre es 
günstiger, dem Mathematikprogramm den Löwenanteil an 
Rechenzeit zuzuteilen. 

Zu diesem Zweck besteht die Möglichkeit, jedem Task eine be¬ 
stimmte Priorität zuzuweisen. Die Skala reicht dabei von -127 
bis +128. Je höher die Priorität eines Tasks ist, desto größer ist 
sein Anteil an Rechenzeit. 

Wie geht man nun konkret vor? Das ist im Grunde genommen 
ganz einfach. Bleiben wir beim Beispiel. Zunächst gehen Sie in 
das Mathematikprogramm und geben dort im Direktmodus ein: 

VOID SetTaskPri(FindTask(0),5) 

Anschließend schalten Sie auf das Druckprogramm um und 
geben dort - ebenfalls im Direktmodus - ein: 

VOID SetTaskPri(FindTask(0),-5) 

Der eine Task erhält also die Priorität 5, der andere die Priorität 
-5. Diese relativ nahe beieinander liegenden Werte reichen bei 
nur zwei Programmen völlig aus. 

Natürlich können Sie SetTaskPri auch innerhalb eines Programms 
(und nicht nur im Direktmodus) verwenden. Um wieder auf die 
Standardpriorität, nämlich 0, zurückzuschalten, gibt es zwei 
Möglichkeiten: 

- VOID SetTaskPri(FindTask(0),0) 

- Anklicken des Pulldown-Menüpunktes ’TaskPri 0’ im GFA- 
Editormenü. 


Supervisor in Supervisor-Modus umschalten 

VOID Supen/isorO 

Schaltet den 68000er-Prozessor des Amiga in den Supervisor- 
Modus. 
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InitCode Resident-Module initialisieren 

VOID lnitCcxie(Startwert > Versionsnummer) 

Initialisiert alle Resident-Module mit dem angegebenen Startwert 
und der Versionsnummer. 


InitStruct Speicherbereich initialisieren 

VOID lnitStruct(lnit, Puffer, Größe) . 

Initialisiert den Speicherbereich der Länge 'Größe’ beginnend ab 
der Adresse 'Puffer' mit den Werten, die ab Adresse ’lnit’ im 
Speicher stehen. 


MakeLibrary neue Funktionsbibliothek erzeugen 

Adr = MakeLibrary (...) 

Erzeugt eine neue Funktionsbibliothek und übergibt deren 
Adresse in 'Adr'. 


FindResident Adresse einer Resident-Struktur suchen 

Adr = FindResident(Name) 

Versucht die Adresse der Resident-Struktur 'Name' zu finden 
und übergibt diese gegebenenfalls in 'Adr'. 


InitResident Resident-Struktur initialisieren 

VOID lnitResident(Adr, Seglist) 

Initialisiert eine Resident-Struktur (Adresse in 'Adr') unter Be¬ 
nutzung der Segmentliste, deren Adresse in 'Seglist' steht. 


Debug Debug-Routine aktivieren 

VOID Debug0 

Aktiviert die ROM-Wack-Funktion des Betriebssystems. Danach 
werden die Debug-Daten (zur externen Kontrolle des ablaufen¬ 
den Programms durch andere Rechner) über die RS-232- 
Schnittstelle geschickt. 
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Disable Interrupts sperren 

VOID DisableO 

Sperrt diverse Interrupts. 

Enable Interrupts wieder aktivieren 

VOID EnableO 

Aktiviert die durch die Funktion Disable desaktivierten Inter¬ 
rupts wieder. 

Forbid Task-Switching abschalten 

VOID Forbid0 

Desaktiviert das Multitasking-System des Amiga. 


Permit Task-Switching wieder einschalten 

VOID PermitO 

Gegenstück zu Forbid. Reaktiviert das Multitasking. 


SetSr Statusregister verändern 

Alt = SetSr(Neu, Maske) 

Verändert das Statusregister des 68000er-Prozessors. In ’Alt’ wird 
der alte Wert des Registers zurückgegeben. 


SuperState in Supervisor-Modus umschalten 

Stack = SuperStateO 

Schaltet den 68000er-Prozessor in den Supervisor-Modus. Stack 
enthält den alten Stackpointer. Dieser Wert muß (!) für den 
Aufruf von UserState aufbewahrt werden. 
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UserState in User-Modus umschalten 

VOID UserState(Stack) 

Schaltet den 68000er-Prozessor in den User-Modus. ’Stack’ ent¬ 
hält den Wert, den Sie bei SuperState zurückerhalten haben. 


SetlntVector System-Interrupt-Vektor setzen 

Adralt = SetlntVector(Nummer, Adrneu) 

Setzt den Interrupt-Vektor neu und übergibt in ’Adralt’ die 
Adresse der alten Struktur. (Adresse der neuen Struktur befindet 
sich in ’Adrneu’.) 


AddlntServer Interrupt-Server-Routine einfügen 

VOID AddlntServer(Nummer, Adr) 

Fügt zu den bereits vorhandenen Interrupt-Server-Routinen eine 
neue hinzu. 


Cause Software-Interrupt ausführen 

VOID Cause(Adr) 

Führt einen Software-Interrupt aus, dessen Adresse in ’Adr’ 
stehen muß. 


Allocate Speicherblock anfordern 

Adr = Allocate(Memheader, Größe) 

Fordert aus einer eigenen Speicherlistenverwaltung einen Block 
an. Im Erfolgsfall enthält ’Adr’ die Adresse des Blockanfangs. 


Deallocate Speicherblock freigeben 

VOID Deallocate(Memheader, Adr, Größe) 

Gibt einen mit der Funktion Allocate angeforderten Speicher¬ 
block wieder frei. 
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AllocMem Speicherplatz reservieren 

Adr = AllocMem(Größe, Art) 

Diese Funktion entspricht der GFA-BASIC-Funktion MALLOC. 

FreeMem Speicherplatz freigeben 

Größe = FreeMem(Adr, Größe) 

Diese Funktion entspricht der GFA-BASIC-Funktion MFREE. 


AvailMem freien Speicherplatz ermitteln 

Speicher = AvailMem(Art) 

Liefert den im Moment verfügbaren freien Speicherplatz. 'Art’ 
enthält die Speicherart (Chip-Memory usw.). 


AllocEntry MemList-Struktur initialisieren 

Adr = AllocEntry(MemList) 

Initialisiert eine MemList-Struktur und übergibt im Erfolgsfall 
deren Adresse in ’Adr’. 


FreeEntry Speicherbereiche löschen 

VOID FreeEntry(MemList) 

Löscht alle Speicherbereiche, die durch die Funktion AllocEntry 
in einer MemList-Struktur reserviert wurden. 


Insert Node-Struktur einfügen 

VOID lnsert(List, Nodel, Node2) 

Fügt eine Node-Struktur in eine Node-Strukturen-Liste ein. 


AddHead Node-Struktur am Anfang einfügen 

VOID AddHead(List,Node) 

Fügt eine Node-Struktur an den Anfang einer doppelt ver¬ 
ketteten Liste ein. 
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AddTail Node-Struktur am Ende einfügen 

VOID AddTail (List,Node) 

Fügt eine Node-Struktur an das Ende einer doppelt verketteten 
Liste ein. 


Remöve Node-Struktur löschen 

VOID Remove(Node) 

Löscht eine Node-Struktur aus einer verketteten Liste von 
Node-Strukturen. 


RemHead Node-Struktur am Anfang löschen 

Adr= RemHead(List) 

Löscht das erste Element aus einer verketteten Liste von Node- 
Strukturen. ’List’ enthält die Adresse der verketteten Liste, in 
’Adr’ wird die Adresse der gelöschten Node-Struktur zurückge¬ 
geben. 


RemTail Node-Struktur am Ende löschen 

Adr = RemTail(List) 

Löscht das letzte Element aus einer verketteten Liste von Node- 
Strukturen. ’List’ enthält die Adresse der verketteten Liste, in 
’Adr’ wird die Adresse der gelöschten Node-Struktur zurückge¬ 
geben. 


Enqueue Node-Struktur in Systemliste einfügen 

VOID Enqueue(List, Node) 

FindName Node-Struktur nach Namen durchsuchen 

Adr = FindName(Start,Name) 

Durchsucht eine System-Node-Liste (Adresse in ’Start’) nach 
dem in ’Name’ angegebenen Namen und übergibt gegebenenfalls 
in ’Adr’ die Adresse der zugehörigen Node-Struktur. 
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AddTask neuen Task anmelden 

VOID AddTask(TaskCB, InitialPC, FinalPC) 

Meldet dem System einen neuen Task an. 


RemTask Task beenden 

VOID RemTaskfTask) 

Beendet den angegebenen Task und löscht ihn. 


FindTask Task suchen 

Adr = FindTask(Name) 

Durchsucht die Task-Listen nach dem Task mit dem ange¬ 
gebenen Namen und übergibt gegebenenfalls dessen Adresse in 
’Adr’. 


SetSignal Signalbit-Status setzen 

Sigalt = SetSignal(Signeu, Sigmaske) 

Setzt den Status der Task-Empfangs-Signalbits. ’Signeu’ enthält 
den neuen Status, in ’Sigalt’ wird der alte Status zurückgegeben. 


SetExcept Signalbit auswählen 

Sigalt = SetExcept(Signeu, Maske) 

Wählt eines der insgesamt 32 Signalbits eines Tasks aus. In Sigalt 
wird das alte Signalbit zurückgegeben. 


Wait auf Signal warten 

VOID Wait(Signal) 

Hält einen Task solange an, bis (von einem anderen Task) ein 
Signal gesendet wird. 
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Signal Signal senden 

VOID Signal(Task, Signal) 

Schickt ein Signal an einen anderen Task 


AllocSignal Signalbit reservieren 

Rück = AllocSignal(Signalnr) 

Reserviert eines der verfügbaren Signalbits. 


FreeSignal Signalbit freigeben 

VOID FreeSignal(Signalnr) 

Gibt ein mit AllocSignal reserviertes Signalbit wieder frei. 


AllocTrap Trap-Nummer reservieren 

Trapnr = AllocTrap(Trapnr) 

Reserviert eine Trap-Nummer der verfügbaren Traps der lau¬ 
fenden Task. 


FreeTrap Trap-Nummer freigeben 

VOID FreeTrap(Trapnr) 

Gibt einen mit der Funktion AllocTrap reservierten Trap wieder 
frei. 


AddPort Message-Port anfügen 

VOID AddPort(MsgPort) 

Fügt an die System-Message-Port-Liste einen neuen Message- 
Port und macht ihn jedem Task zugänglich. 


RemPort Message-Port löschen 

VOID RemPort(MsgPort) 

Löscht einen Message-Port aus der Message-Port-Liste. 
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PutMsg Nachricht anhängen 

VOID PutMsg(MsgPort, Message) 

Hängt eine Nachricht an den angegebenen Message-Port. 

GetMsg Nachricht holen 

MsgPort = GetMsg(MsgPort) 

Holt die nächste Nachricht aus dem angegebenen Message-Port. 


ReplyMsg Nachricht zurücksenden 

VOID ReplyMsg(Message) 

Sendet eine empfangene Nachricht an den absendenden 
Message-Port zurück (zur Empfangsbestätigung). 


WaitPort auf Ereignis warten 

VOID WaitPort(MsgPort) 

Wartet auf ein Ereignis in dem angegebenen Message-Port. 


FindPort Message-Port suchen 

Adr = FindPort(Name) 

Durchsucht die System-Message-Port-Liste nach einem Port mit 
dem angegebenen Namen und übergibt gegebenenfalls in ’Adr’ 
dessen Adresse. 


AddLibrary neue Library einfügen 

VOID AddLibrary(Adr) 

Fügt eine neue Library zum System hinzu und macht sie für alle 
Tasks zugänglich. 


RemLibrary Library entfernen 

Rück = RemLibrary(Adr) 

Löscht eine Library aus der Library-Liste des Systems. 
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CloseLibrary Library schließen 

VOID CloseLibrary(Adr) 

Schließt eine Library, deren Adresse sich in ’Adr’ befindet. 


SetFunction neue Funktion in Library einfügen 

Adr = SetFunction(Library, Funkoffset,Funkadr) 

Fügt in eine Funktionsbibliothek eine neue Funktion ein. In 
’Adr’ wird die Adresse der alten Funktion zurückgegeben, die an 
der angegebenen Position in der Bibiliothek stand. 


SumLibrary neue Checksumme berechnen 

VOID SumLibrary(Library) 

Berechnet für die angegebene Library eine neue Checksumme. 


AddDevice Device hinzufügen 

VOID AddDevice(Adr) 

Fügt zur System-Device-Liste ein neues Device hinzu und macht 
es für alle Tasks zugänglich. 


RemDevice Device entfernen 

VOID RemDevice(Adr) 

Löscht ein Device aus der System-Device-Liste. 


OpenDevice Device öffnen 

Rück = OpenDevice(Name, Nummer, lORequest, Flags) 

öffnet das durch seinen Namen bezeichnete Device und initiali¬ 
siert die zugehörige IORequest-Struktur. 


CloseDevice Device abmelden 

VOID CloseDevice(IORequest) 

Meldet ein Device beim System ab. 
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DolO Kommando ausführen 

Rück = DolO(IORequest) 

Führt das in der IORequest-Struktur festgelegte Kommando aus. 


WaitIO auf Kommandoausführung warten 

Rück = WaitlO(IORequest) 

Wartet, bis das in der IORequest-Struktur angegebene Kom¬ 
mando ausgeführt ist. 


AddResource Resource hinzufügen 

VOID AddResource(Adr) 

Fügt ein Resource zur System-Resource-Liste hinzu und macht 
es jedem Task verfügbar. 


RemResource Resource entfernen 

VOID RemResource(Adr) 

Entfernt ein Resource aus der System-Resource-Liste. 


OpenResource Resource öffnen 

Adr = OpenResource(Name, Version) 

öffnet ein bereits installiertes Resource und übergibt in ’Adr’ 
die Adresse der zugehörigen Resource-Struktur. 


OpenLibrary Library öffnen 

Adr = OpenLibrary(Name, Version) 

öffnet eine Funktionsbibliothek und übergibt in ’Adr’ die 
Adresse der zugehörigen Librarystruktur. 
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12. Programmkontrolle 

12.1 Programmstart und -ende 


CONT { CON } Programm {nach STOP-Befehl) fortsetzen 


CONT 

Wurde der Programmlauf mit STOP unterbrochen, kann durch 
CONT im Direktmodus das Programm in der Zeile nach dem 
STOP-Befehl fortgesetzt werden. CONT ist nicht möglich, wenn 
nach STOP entweder CLEAR verwendet, das Programm-Listing 
verändert oder neue Variablen eingeführt wurden. 

In manchen Fällen kann es notwendig sein, in ON BREAK 
GOSUB- oder ON ERROR GOSUB-Prozeduren CONT einzu¬ 
setzen. Ob ein solcher Fall eintritt, hängt von verschiedenen 
Umständen ab, die sich nicht immer konkret Vorhersagen lassen. 
Wenn es Ihnen passiert, daß das Programm in solchen Prozedu¬ 
ren "hängenbleibt", ist es gut, daß Sie von dieser Möglichkeit 
schon einmal gehört haben. 


Programm beenden 


EDIT { ED } 


EDIT 

Hat dieselbe Wirkung wie END (siehe dort). EDIT kehrt jedoch 
ohne Vorwarnung direkt zum Editor (Interpreter) bzw. zur 
Workbench (bei Kompilaten) zurück. 
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END 


Programm beenden 


END 

Bewirkt den Abbruch des aktuellen Programms. Variablen¬ 
inhalte/offene Dateien bleiben im Interpreter bis zur nächsten 
Programmänderung bzw. bis . zum nächsten CLEAR erhal¬ 
ten/geöffnet und können im Direktmodus weiter angesprochen 
werden. 

Das Programm kann danach nicht durch CONT fortgesetzt wer¬ 
den. Im Interpreter-Betrieb erscheint eine Programm-Ende-Mel- 
dung, nach der zum Editor zurückgekehrt wird. Kompilate keh¬ 
ren ohne Ende-Meldung direkt zur Workbench bzw. zum auf¬ 
rufenden Programm (siehe EXEC) zurück. 


QUIT { Q }Programmende (Rückkehr zum Cü oder Workbench) 


QUIT 

QUIT [x] (nur V3.0) 

QUIT ist identisch mit SYSTEM und bewirkt, daß das Pro¬ 
gramm ohne jegliche Sicherheitsabfrage zur Workbench bzw. 
(evtl, bei Kompilaten) zum Aufrufer (also dem CLI oder EXEC) 
zurückkehrt. 

In Version V3.0 kann in x ein 16-Bit-Wert angegeben werden, 
der an das aufrufende Programm (über DO) zurückgegeben und 
dann dort ausgewertet werden kann (siehe EXEC als Funktion). 

Allgemeine Konvention: 


x=0 Programm wurde korrekt - ohne Error - verlassen. 
x>0 BASIC-Fehler aufgetreten (ERR = 0 bis 109). 
x<0 System-Fehler aufgetreten (ERR= -1 bis -67). 
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Tritt ein System- oder BASIC-Fehler ein, könnte ggf. QUIT 
ERR in einer Fehler-Abfangroutine (siehe ON ERROR GOSUB) 
als Programmende eingesetzt werden. So "weiß" ggf. das auf¬ 
rufende Programm, aus welchen Gründen das von ihm aufge¬ 
rufene Programm beendet wurde. 


Programm starten 


RUN { RU } 


RUN 

RUN "Programmname" 

Startet das aktuelle Programm neu. Dabei werden sämtliche 
Variablen und der Bildschirm gelöscht. RUN kann auch im 
Direktmodus verwendet werden. 

In der uns vorliegenden Version V3.0 kann ein Programmname 
angegeben werden. Das angegebene Programm wird geladen und 
automatisch gestartet (vgl. CHAIN). 


Programm unterbrechen 


STOP { ST } 


STOP 

Mit STOP kann der Programmlauf an jeder Stelle unterbrochen 
werden. Es erscheint eine ALERT-Box, durch die man das Pro¬ 
gramm fortsetzen kann oder durch die man in den Direktmodus 
gelangt. 

Da keine Variablen gelöscht und keine Dateien geschlossen wer¬ 
den, kann aus dem Direktmodus heraus durch Eingabe einzelner 
Befehlszeilen schrittweise gearbeitet werden und anschließend 
das Programm ggf. durch Eingabe von CONT im Direktmodus 
fortgesetzt werden (siehe CONT). Es kann auch zum Editor ge- 
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wechselt werden. Solange dort keine Zeilen verändert werden, 
kann auch dann nach Rückkehr zur Direkt-Eingabeebene durch 
CONT das Programm wieder aufgenommen werden. 


Beispiel: 


DO 

INC Aa 
IF Aa>100 
CLR Aa 
STOP 
ENDIF 
PRINT Aa" 
LOOP 


! Endlos-Schleife 
I Irgendeine Zählvariable +1 
! Variable größer 100? 

! Variable löschen 
I Programmstop 

I Wert ausgeben 


SYSTEM { SYS } 

Programmende (Interpreter verlassen) 

SYSTEM 

SYSTEM [x] 

Ist identisch mit QUIT (siehe Erläuterungen dort). 

12.2 Löschfunktionen 


CLEAR { CLE } 

Felder und Variablen löschen 


CLEAR 

Alle numerischen Variablen erhalten den Wert 0, alle String- 
Variablen werden zu Leer-Strings. Felder werden gelöscht, und 
ihre Dimensionierung wird aufgehoben. CLEAR darf nicht in 
Prozeduren oder FOR/NEXT-Schleifen verwendet werden. Bei 
Programmstart wird CLEAR automatisch ausgeführt. 
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CLR 

Einzelvariablen löschen 

CLR Var [,Var%,Var$,...] 


Es kann eine Liste von Variablen (keine Feldvariablen) über¬ 
geben werden, deren Inhalte gelöscht werden sollen, z.B.: 

CLR AS,BX,C,D! 


entspricht: 


AS= ,,M BX=0 C=0 D! =0 


CLS 

Bildschirm löschen 

CLS [#Kanal] 


Löscht den Ausgabebildschirm bzw. das jeweils geöffnete Intui¬ 
tion-Fenster und setzt den Cursor auf Home (linke obere Ecke). 
Wenn durch die Option Kanal CLS in eine Diskettendatei ge¬ 
schrieben wird, wird beim Lesen dieser Datei der Bildschirm 
gelöscht, sobald der Lesezeiger auf CLS trifft. Die Ausgabe eines 
CHR$(12) mittels PRINT bewirkt das gleiche und wird auch bei 
der Datei-Ausgabe verwendet. 

NEW 

Programmspeicher löschen 


NEW 


Löscht den BASIC-Arbeitsspeicher mitsamt dem Programm und 
seinen Variablen. Der Speicher ist für neue Anwendungen frei. 
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12.3 Zeitoperationen 


Systemdatum ermitteln 


DATE$ 


Var$=DATES 

DATES = “Datum-String" (nur V3.0) 

DATES ist eine reservierte String-Variable, die dieses aktuelle 
Systemdatum als Text-String im Format DD.MM.YYYY (D = 
Tag/ M = Monat/ Y = Jahr) enthält. Es ist möglich, DATES ein 
neues Datum in "Datum-String" zuzuweisen. Das Format dieses 
Strings ist unter SETTIME beschrieben. 

Wie Sie sicher wissen, kann im Programm Preferences der Work- 
bench das aktuelle Datum eingegeben werden. Diese Angabe 
wird systemintern ständig auf den aktuellen Stand gebracht. 
Haben Sie keine Veränderungen an dieser Einstellungen vorge¬ 
nommen (siehe SETTIME), so erhalten Sie immer das jeweilig 
auf der Workbench-Diskette abgespeicherte Datum, das nur bei 
einer akkugepufferten Uhr in der Startup-Sequence neu gesetzt 
werden kann. 


DELAY { DE LA } 1/1-Sek.-Wartefunktion 


DELAY Sekunden 

Sekunden bestimmt, wie viele Sekunden das Programm pausieren 
soll (sonst siehe PAUSE). 
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PAUSE {PA} 1/50-Sek.-Wartefunktion 


PAUSE Dauer 

Dauer bestimmt in 50stel Sekunden, wie lange das Programm 
pausieren soll. In dieser Zeit ist ausschließlich die Break-Funk¬ 
tion aktiv. 

Andere Aktivitäten (ON ERROR GOSUB, ON MENU xxxx 
GOSUB, EVERY/AFTER GOSUB etc.) werden für die ange¬ 
gebene Dauer eingestellt. 

Das Problem der 16-Bit-Computer (der 32-Bit-Computer erst 
recht) ist nicht mehr, daß sie so langsam sind und dadurch 
zwangsläufig Pausen schaffen, sondern daß sie so schnell sind, 
daß man ihnen manchmal eine kleine Verschnaufpause auf¬ 
zwingen muß, um bestimmte Programmläufe überhaupt noch 
kontrollieren zu können. In einigen Programmen finden Sie den 
Begriff "kleine Klickpause". Er kennzeichnet, was gemeint ist. 

Stellen Sie sich vor. Sie lassen eine Schleife mit der Abbruchbe¬ 
dingung EXIT IFMOUSEK=l enden, und ein daran an¬ 
schließender Block wird nur betreten, IF MOUSEK=l ist. Selbst 
wenn dazwischen noch weitere Zeilen liegen, ist der Computer 
so schnell, daß der Mausklick zum Verlassen der Schleife 
gleichzeitig als Bedingungs-Erfüllung für den Eintritt in den IF 
MOUSEK=l-Block gewertet wird. Damit der Benutzer des Pro¬ 
gramms in solchen Fällen Zeit hat, die Maustaste wieder loszu¬ 
lassen, legt man zwischen die beiden Bedingungen eine kleine 
Pause (z.B. PAUSE 5), die dann im Pogrammverlauf von einem 
"Unwissenden" gar nicht bemerkt wird. 
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SETTIME { SETT } Uhrzeit und Datum einsteilen 

SETTIME Zeit$,Datum$ 

In Zeit$ und DatumS werden die neue Systemzeit und das neue 
Systemdatum bestimmt. Es müssen beide Strings übergeben 
werden. 

Europa-Format : 


Zeit) = "hh:mm:»s" oder ’hhmmss" 

Datum} = "dd.mm.yyyy" oder "dd.mm.yy" 

USA-Format (nur in V3.0 - siehe MODE): 


Zeit} = "hh:mm:ss" oder "hhmmss" (wie oben) 
Datum} = "mm/dd/yyyy" oder "mm/dd/yy" 


Die Jahresangabe kann auch zweistellig erfolgen (z.B. 86 für 
1986), falls es sich um eine Angabe zwischen 1980 und 2079 
handelt. Bei der Zeitangabe können die Sekunden (ggf. inkl. 
Doppelpunkt) weggelassen werden. Die Sekunden werden dann 
auf Null gesetzt, z.B.: 

SETTIME ”15:37", => verändert nur die Uhrzeit 

SETTIME ”15:37:22","15.07.88" => verändert beide Einträge 

SETTIME "","15.07.1988" => verändert nur da« Datum 

Wird das Format nicht korrekt eingehalten, werden die Angaben 
ignoriert, und der alte Inhalt wird unverändert beibehalten. Die 
Sekunden der Zeitangabe werden übrigens nur in Zweierschrit¬ 
ten (0, 2, 4, 6 etc.) übernommen, ungerade Angaben werden auf 
die nächsthöhere gerade Zahl "gerundet". 
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TIMES 


Sy stem-Uhrzeit ermitteln 


Var$=TIME$ 

TIME$ = "Zeit-String" 

TIMES ist eine reservierte String-Variable, die die aktuelle 
Uhrzeit als Text-String im Format hh:mm:ss (h = Stunde/m = 
Minute/s = Sekunde) enthält. In V3.0 ist es möglich, TIMES eine 
neue Uhrzeit in Zeit-String zuzuweisen. Das Format dieses 
Strings ist unter SETTIME beschrieben. Die Sekunden der 
Zeitangabe werden übrigens in Zweierschritten erhöht. 

Im GFA-Editor der V3.0 ist dies die Zeitangabe, die Sie rechts 
oben auf dem Bildschirm sehen. Für Dauer-Computerer (wie 
mich) wäre es übrigens sicher angebracht gewesen, zusätzlich 
noch eine Weck-Zeit-Eingabe zu installieren, damit man nicht 
das Schlafengehen "verschläft". Bei mir müßte dann allerdings 
nach Erreichen der Weckzeit ein Guru eingebaut werden, da ich 
bis jetzt jedes gesetzte Zeitlimit um Längen geschlagen habe. 


TIMER 


Laufzeit ermitteln 


Var=TIMER 

Reservierte Variable. Enthält die seit Systemstart verstrichene 
Zeit in 200stel Sekunden. 

Der Amiga verfügt über einen Zeit-Zähler, der alle l/200stel 
Sekunden um 1 erhöht wird. Dieser Zähler beginnt zum Zeit¬ 
punkt des Systemstarts bei Null und erhöht sich also in jeder Se¬ 
kunde um den Wert 200. Dabei ist es unerheblich, ob zwischen¬ 
zeitlich irgendwelche Anwendungen ausgeführt werden. Der 
Zähler orientiert sich an dem konstant bleibenden Takt des 
Prozessors. D.h. also, daß Sie anhand dieses Zählers exakt fest¬ 
stellen können, wieviel Zeit seit dem Systemstart vergangen ist. 
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Außerdem läßt sich dieser TIMER hervorragend dazu ver¬ 

wenden, von einer bestimmten Zeitdauer abhängige Arbeiten 
ausführen zu lassen oder die Zeitdauer bestimmter Prozesse zu 
messen (Benchmark-Tests). 

Beispiel 1 (Zeitanzeige): 

Time=Timer I Timer puffern 

Do ! Endlos-Schleife 

XX=(Timer-Time)/200 I Differenz in Sekunden 

Print At<10,10);RightS<StringS(3,»0")+StrJ<XX>,3);" Sek.» 

Loop 

Beispiel 2 (Zeitmessung): 

Time=Timer 

Print »20000er Integer-FOR..NEXT-Leerschleife: »; 

For IX=0 To 20000 
Next IX 

Print (Timer-Time)/200;“ Sek.» 

Time=Timer 

Print »20000er Real-FOR..NEXT-Leerschleife: »; 

For 1=0 To 20000 
Next I 

Print (Timer-Time)/200;» Sek.» 

Time=Timer 

Print »20000er Integer-REPEAT..UNTIL-Leerschleife: »; 

Clr IX 
Repeat 
Inc IX 

Until IX=20000 

Print (Timer-Time)/200;» Sek.» 

Time=Timer 

Print »20000er Integer-DO..LOOP-Leerschleife: »; 

Clr IX 
Do 

Inc IX 

Exit if IX=20000 
Loop 

Print (Timer-Time)/200;» Sek.» 


Beispiel 3 (Quasi-Multitasking): 

Print »Bitte <Tasten> drücken» 

Graphmode 3 ! XOR-Modus für Auf/Zu-Box 

Do 

KeyS=InkeyS 
If XeyS>»» 

Print Key*; 

Endi f 


! Tatstatur abfragen 
! Taste gedrückt? 

! Zeichen ausgeben 
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If Timer Mod 100=0 


! Jede 1/2 Sekunde 


For IX=10 To 100 Step 6 I - 

Box 110-IX,110-IX,120+IX,120+IX 
Next IX 

For IX=100 To 10 Step -6 
Box 110-IX,110-IX,120+IX,120+IX 

Next IX ! - 

Endif 

Loop 


Parallelprozeß- 
Prozeß 

laufen lassen 


12.4 Fehlerbehandlung 


I HR 


Fehler-Code ermitteln 


Var=ERR 

ERR ist eine reservierte Variable, die nach Auftreten eines 
Fehlers seine Identifikationsnummer enthält. Siehe Fehlerliste im 
Anhang. 


ERR$ 


Fehlertext liefern 


Var$ = ERR$(lndex) 

Die Funktion ERR$ liefert in V3.0 den Text der Fehlermeldung, 
deren Fehlerindex angegeben wurde. 
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Fehler simulieren 


ERROR { ER } 


ERROR Fehlernummer 

Fehlernummer steht für die Identifikationsnummer des zu simu¬ 
lierenden Fehlers. 

Es wird entweder die entsprechende Fehlermeldung ausgegeben 
und das Programm beendet, oder es wird - wenn ON ERROR 
GOSUB aktiv ist - zu der dort angegebenen Prozedur verzweigt. 


Fahlerart ermitteln 


FATAL 


Var=FATAL 

Reservierte Variable. Es wird eine Unterscheidung zwischen 
"Normal"- und "System-Fehler"-Fehlern getroffen. Ist ein 
"System-Fehler" aufgetreten (Adresse des zuletzt ausgeführten 
BASIC-Befehls ist nicht mehr bekannt), enthält sie eine -1. Bei 
allen anderen Fehlern enthält sie eine 0. 

0 Allgemeiner BASIC-Fehler. Die Variablen- und Label- 
Adressen sowie der GOSUB-Stapel sind intakt. 

-1 Fataler Systemfehler. Die Adressenlage ist zerstört, was 
normalerweise eine Guru-Meditation zur Folge hat. In 
GFA-BASIC wird versucht, diese Fehler ebenfalls ab¬ 
zufangen, da das System bei den "normalen" System- 
Errors die Registerinhalte in einen besonderen Bereich 
rettet, der - falls kein Total-Absturz eingetreten ist - 
zur Re-Initialisierung wieder ausgelesen werden kann. 
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ON ERROR [GOSUB] Verzweigung bei Fehler 


ON ERROR GOSUB Prozedur 
ON ERROR 

Verzweigt im ersten Fall zur der angegebenen Prozedur, sobald 
ein System- oder BASIC-Fehler auftritt. In diesem Fall wird 
keine Fehlermeldung ausgegeben, sondern das Error-Handling 
wird dem Programmierer überlassen. So ist es möglich, anhand 
der Fehlernummer ERR (und ERR$) eigene Fehlermeldungen 
auszugeben oder das Programm - Ihren Vorstellungen und dem 
aktuellen Error entsprechend - weiterverzweigen oder einfach 
fortfahren zu lassen (siehe RESUME). 

Wurde zu einer Fehler-Routine verzweigt, schaltet der Inter¬ 
preter die Fehlerbehandlung nach Abarbeiten der Prozedur 
wieder in den Normalmodus zurück. Soll also wieder ON 
ERROR GOSUB aktiviert werden, so muß in der Abfangroutine 
vor dem RESUME-Sprung erneut eine/die Fehlerroutine ange¬ 
geben werden. 

Die zweite Syntaxvariante schaltet den normalen Error-Modus 
wieder ein. Es erscheint bei Errors also wieder die übliche Feh¬ 
lermeldung (in Kompilaten entsprechende OPTION einsetzen!) 
und das Programm wird daran anschließend abgebrochen. 

In der vorliegenden Version 3.0 kann der Befehlsteil GOSUB 
weggelassen werden. Er wird vom Editor selbständig eingefügt. 
Beispiel unter FATAL. 
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RESUME { RESU > Programm nach Enor-Routine fortsetzen 


RESUME = > Nach Error-Routine Programmfortsetzung 

mit Wiederholung der fehlerhaften Zeile 
RESUME NEXT = > Nach Error-Routine Programmfortsetzung 

mit der. Zeile, die der fehlerhaften Zeile 
folgt. 

RESUME Label = > Nach Error-Routine Programmfortsetzung 

mit der angegebenen Label-Zeile. 

Bestimmmt, mit welcher Programmzeile das Programm nach 
Auftreten eines selbst verwalteten Fehlers (siehe ON ERROR 
GOSUB) fortgesetzt werden soll. RESUME ist nur innerhalb von 
Prozeduren zulässig. Sinnvollerweise wäre das eine Fehlerbe¬ 
handlungsroutine, aber es ist auch möglich, RESUME Label als 
GOTO-Sprung aus einer Prozedur heraus zu mißbrauchen. 
GOTO selbst ist ja aus Prozeduren heraus nicht erlaubt, z.B.: 

Label: ! Sprung-Label 

Print 111 ! PRINT irgendwas 

SRoutine ! Routine aufrufen 

Procedure Routine 

Resume Label ! Sprung zum Label 

Return 


Befindet sich bei der Label-Variante das angegebene Label 
außerhalb der Routine, in der das RESUME- Label steht, wird 
grundsätzlich der GOSUB-Sprungstapel gelöscht, und alle 
globalen Variablen werden restauriert. 

Nach FATAL-Errors (siehe FATAL) ist ausschließlich RESUME 
Label zu verwenden. RESUME NEXT und RESUME könnten in 
diesem Fall evtl, zum Absturz führen. 

Ein Beispiel finden Sie unter FATAL. 
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12.5 Auskünfte 


CRSCOL Aktuelle Cursor-Spalte liefern 


Var=CRSCOL 

Reservierte Variable, die die Cursor-Spalte des Windows enthält, 
in der sich der Cursor aktuell befindet (CRSCOL = 
CuRSorCOLumn). 

Im Gegensatz zur Funktion POS(), die die zeilenbezogene 
Cursor-Position liefert, kann mit CRSCOL die Spaltenposition 
des Cursors auf dem Bildschirm (Hires/Lowres: 1 - 80/ 1 - 60) 
ermittelt werden. In Verbindung mit CRSLIN bildet CRSCOL 
das Gegenstück zu PRINT AT(S,Z). 

Ein Beispiel hierzu finden Sie unter CRSLIN. 


CRSLIN 


Aktuelle Cursor-Zeile liefern 


Var=CRSLIN 

Reservierte Variable, die die TOS-Cursor-Zeile enthält, in der 
sich der Cursor aktuell befindet (CRSLIN = CuRSorLINe). 
CRSLIN liegt beim Standard-Font in allen Auflösungen immer 
im Bereich von 1 - 25. Wenn Sie in Hires die Prozedur Sysfont 
(siehe ASC()) mit Font = 1 einsetzen, liegt CRSLIN im Bereich 
von 1 - 50. 

In Verbindung mit CRSCOL bildet CRSLIN das Gegenstück zu 
PRINT AT(S,Z). 
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Beispiel 1: 


I 500mal 


FOR i=1 TO 500 
PRINT "CRSCOL/CRSLIN-Test 


IF CRSCOL>50 ! 

PRINT I 

ENDIF 

IF CRSLIN=25 I 

CLS I 

ENDIF 
NEXT i 


I Text ausgeben 
Cursor hinter 50. Spalte? 
Darm neue Zeile 

Cursor in unterster Zeile 
Darm Bildschirm löschen 


Beispiel 2: 


a$="TEXT RÜCKWÄRTS" 

PRINT AT(37,1); 

DO 

PRINT AT(37,CRSLIN+1); 

DO 

PRINT AT(CRSCOL-2,CRSLIN); 
PRINT MID$(a$,(36-CRSCOL),1) 
EXIT IF CRSC0L<22 
LOOP 

EXIT IF CRSLIN>23 
LOOP 


I Cursor positionieren 

I Zeiten-Schleife 

I Cursor neu positionieren 

I Spalten-Schleife 

I Cursor 2 Spalten nach links 

! Zeichen ausgeben 

! Cursor vor der 22. Spalte = Exit 

! Cursor unter 23. Zeile = Exit 


FRE() 


Freien Speicherplatz ermitteln 


Var=FRE(Dummy) 

Var=FRE() 

Es wird eine Garbage-Collection (Müll-Sammlung) durchgeführt 
und anschließend die Größe des noch freien Speichers geliefert. 
Dummy ist ein Integerwert ohne Bedeutung. 

Der Interpreter sorgt sich ständig um den verbleibenden 
Speicherplatz. Dazu werden intern die nicht mehr benötigten 
Variablenbereiche (z.B. gelöschte String-Variablen und Felder) 
ermittelt, entfernt und die benachbarten Speicherbereiche zu¬ 
sammengeschlossen. Diese Arbeit wird vom BASIC sporadisch 
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erledigt. Zu erkennen ist sie manchmal an kurzen "Aussetzern", 
bei denen man den Eindruck bekommt, daß das Programm für 
eine lOtel Sekunde "stottert". 

Um diese Garbage-Collection gezielt einsetzen zu können, kann 
FRE() verwendet werden, auch wenn man am verbleibenden 
Speicherplatz gar nicht interessiert ist. Ratsam ist der Einsatz 
von FRE() vor allem direkt vor einer Abfrage von Vari¬ 
ablenadressen durch VARPTR() oder ARRPTR(), da die 
Adreßlage der Variablen (vor allem der Strings) durch eine 
zwischenzeitlich intern ausgeführte Garbage-Collection verscho¬ 
ben worden sein kann. 

In der Amiga-Version 3.0 ist Dummy optional. Wird eine Leer- 
klammer angegeben, wird vor der Speicherplatz-Ermittlung 
keine Garbage-Collection durchgeführt. 


TYPEO 


Variablentyp ermitteln 


Var=TYPE(Pointer) 

Pointer steht für einen *-Pointer (z.B. PRINT TYPE(*Var%)). Es 
wird der Typ der dadurch repräsentierten Variablen geliefert. 

Type: 


-1 = Fehler aufgetreten 
0 = Realzahlvariable (Var) 

1 = String-Variable (Var$) 

2 = 4-Byte-Integervariable (Var%) 

3 = Boolesche Variable (Var!) 

4 = Real-Feldvariable (Var()) 

5 = String-Feldvariable (Var$Q) 

6 = 4-Byte-Integer-Feldvariable (Var%()) 

7 = Boolesche Feldvariable (Var!()) 
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Ab hier nur für V3.0: 

8 = 2-Byte-Integervariable (Var&) 

9 = 1-Byte-Integervariable (Var|) 

12 = 2-Byte-Integer-Feldvariable (Vart()) 

13 = 1-Byte-Integer-Feldvariable (Var|()) 

Beispiel: 

A=10.1 
AS="ABC" 

AX=10 

A!=-1 

Print Type(*A) , Type(*A$) , Type(*AX)'Type(*A!) 

Ein weiteres Beispiel finden Sie unter * (Pointer). 


12.6 Multitasking 


AFTER X GOSUB { AF } Single-Interrupt-Routinenaufruf 


AFTER Ticks [GOSUB] Prozedur 

Ruft nach Ticks Zeiteinheiten (1 Sekunde = 200 Ticks) die an¬ 
gegebene Prozedur einmal auf. Der Befehl wird jedoch - gene¬ 
rell - immer erst nach vollständiger Abarbeitung eines BASIC- 
Befehls ausgeführt. Wenn z.B. durch SOUND x,x,x,x,Dauer, 
PAUSE, DELAY, INP() INPUT, BLOAD etc. die Program¬ 
mausführung unterbrochen wird, so wird der Sprung zur ange¬ 
gebenen Prozedur ggf. erst bei Wiederaufnahme des Programms 
wirksam. Beispiel: 

AFTER 100 GOSUB abc ! AFTER-Aufruf 
tX=TIMER 
INPUT a$ 

DO 
LOOP 

PROCEDURE abc 


! AFTER-Ausführung wird unterbrochen 
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PRINT "AFTER 100 GOSUB erst nach ";TIMER-tX; 

PRINT " Ticks ausgeführt" 

END 

RETURN 

Anmerkung: Es ist bisher nicht möglich, mehrere AFTER- 
Interrupt-Anweisungen gleichzeitig zu verarbeiten. Die zuletzt 
verfügte AFTER GOSUB- bzw. EVERY GOSUB-Anweisung 
hebt also die vorangegangene auf. 


Beispiel: 

AFTER 1000 GOSUB aa 
AFTER 400 GOSUB bb 
DO 
LOOP 

PROCEDURE aa 
PRINT 11111 
RETURN 

PROCEDURE bb 
PRINT 22222 
RETURN 


I Erster Aufruf 
I Zweiter Aufruf 
! Endlos-Schleife 

! Prozedur für ersten Aufruf 


! Prozedur für zweiten Aufruf 


Hier im Beispiel wird nur einmal nach zwei Sekunden die Pro¬ 
zedur des zweiten Aufrufs angesprungen. Der erste Aufruf ist 
durch den zweiten ungültig geworden. PRINT 11111 wird also 
nicht mehr ausgeführt. 

Es gibt allerdings die Möglichkeit, aus einer AFTER x GOSUB- 
Anweisung eine zweite EVERY x GOSUB-Anweisung zu 
machen. Dazu muß ganz einfach die entsprechende AFTER x 
GOSUB-Prozedur vor ihrem RETURN wieder neu initialisiert 
werden. Dabei ist zu beachten, daß so nicht der gleiche regel¬ 
mäßige Rhythmus wie bei EVERY zu erreichen ist, da ja die 
Initialisierung selbst immer wieder Zeit in Anspruch nimmt. 
Eine solche - zu EVERY zusätzliche - Interrupt-Schleife ist je¬ 
doch in den meisten Fällen besser als keine. 


Beispiel: 


AFTER 60 GOSUB procl 
EVERY 100 GOSUB proc2 
DO 
LOOP 

PROCEDURE procl 

PRINT "AFTER-Procedure" 
AFTER 60 GOSUB procl 


! AFTER initialisieren 
! EVERY initialisieren 
! Endlos-Schleife 

! AFTER-Prozedur 


! AFTER neu initialisieren 
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RETURN 

PROCEDURE proc2 ! EVERY-Prozedur 

PRINT "EVERY-Procedure" 

RETURN 


AFTER CONT { AF CONT }SingMnterrupt-Routine frelgeberi 


AFTER CONT 


Setzt nach AFTER STOP die Single-Interrupt-Kontrolle fort. 
Weiteres siehe AFTER STOP. 


AFTER STOP { AF STOP } Singie-tnterruptroutine sperren 


AFTER STOP 

Unterbricht die Single-Interruptkontrolle. Durch AFTER STOP 
kann veranlaßt werden, daß die Ausführung der aktuellen 
AFTER x GOSUB-Prozedur solange verzögert wird, bis wieder 
AFTER CONT verfügt wird. Wird AFTER CONT nicht einge¬ 
setzt, so bleibt AFTER x GOSUB bis zum Programmende in¬ 
aktiv - es sei denn, durch einen neuen AFTER x GOSUB wurde 
ein neuer Timer gesetzt. 

Z.B. soll nach 3 Sekunden eine AFTER-Procedure angesprungen 
werden. Die Ausführung wird jedoch nach 2 Sekunden durch 
AFTER STOP unterbrochen und nach weiteren 2 Sekunden 
durch AFTER CONT wieder zugelassen, so wird AFTER x 
GOSUB erst nach diesen 4 Sekunden ausgeführt, obwohl die 
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Zeitspanne von 3 Sekunden schon verstrichen ist. Weitere 
AFTER CONT-Aufrufe für denselben Prozeß haben dann keine 
Wirkung mehr, da die Routine nur einmal ausgeführt wird. 


Beispiel: 

tX=TIMER 

AFTER 600 GOSUB procl ! Nach 3 Sekunden 
PRINT "AFTER 600 GOSUB ist aktiv" 

EVERY 400 GOSUB proc2 ! Alle 2 Sekunden 
DO ! Endlos-Schleife 

LOOP 

PROCEDURE procl 

PRINT "AFTER 600 GOSUB nach ";<TINER-tX); M Ticks ausgeführt!" 
EDIT 
RETURN 

PROCEDURE proc2 

aX=aX XOR 1 ! AX als Wechsel-Flag (1/0) 

IF aX=1 

PRINT "AFTER 600 GOSUB unterbrochen" 

AFTER STOP ! AFTER GOSUB unterbrechen 

ELSE 

PRINT "AFTER 600 GOSUB wieder aufgenommen" 

AFTER CONT ! AFTER GOSUB fortsetzen 

ENDIF 
RETURN 


EVERY X GOSUB { EV } Interrupt-Routinenaufruf 


EVERY Ticks [GOSUB] Prozedur 

Ruft ständig nach Ablauf von Ticks Zeiteinheiten (1 Sekunde = 
200 Ticks) die angegebene Prozedur auf. Der Befehl wird jedoch 
- generell - immer erst nach vollständiger Abarbeitung eines 
BASIC-Befehls ausgeführt. Wenn z.B. durch SOUND 
x,x,x,x,Dauer, PAUSE, DELAY, INP() INPUT, BLOAD etc. die 
Programmausführung unterbrochen wird, so wird der Sprung zur 
angegebenen Prozedur ggf. erst bei Wiederaufnahme des Pro¬ 
gramms wirksam. 

GFA-Fans mußten lange auf diesen Befehl warten. Beachten Sie 
außerdem die Anmerkung zu AFTER GOSUB. 
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Beispiel: 


Every 50 Gosub Multi I Interrupt initialisieren 

Print At(1,3);"Bitte Text eingeben und mit Maus zeichnen." 
Print "(Die Zeit-Datum-Anzeige kam durch Klick"; 

Print "geöffnet und dam geändert werden.)" 


Do 


Keytest AX 
If. (AX And 255) 

Out 5,AX And 255 
Endif 
If Mousek 
Repeat 


! Endlos-Schleife 
! Tastatur abfragen 
! ASCII-Taste gedrückt? 

• ASCII über Console ausgeben 


! 


Maustaste gedrückt? 

! Box-Schleife 

Box Mousex,Mousey,Mousex+10,Mousey+10 
Until Mousek=0 I Bis Maustaste losgelassen 

Endi f 


Loop 

Procedure Multi 
Every Stop 
Gosub Timdat(1,1,1) 
Every Cont 
Return 


! EVERY-Prozedur 

I EVERY unterbrechen (siehe unten) 
I Zeit-Prozedur aufrufen 
! EVERY fortsetzen (siehe unten) 


Die in diesem Beispiel verwendete Zeit-Routine Timdat finden 
Sie unter SETTIME beschrieben. Sie ist in dieses Demo-Pro¬ 
gramm vor Start einzubinden. 

Hier können Sie einen Effekt beobachten, der mich fast zur 
Verzweiflung getrieben hat. Ich wußte genau, daß die Timdat- 
Routine einwandfrei funktionierte. Als ich den Timdat-Aufruf 
in die Multi-Prozedur blauäugig eingebunden hatte, war ein 
Probelauf fällig —!!!— und es funktionierte gar nichts mehr 
oder immer, wenn ich das Datum oder die Zeit ändern wollte, 
brach das Chaos aus. 


Ich durchsuchte Timdat nach möglichen Fehlern und suchte und 
suchte... Als ich dann genug gesucht hatte, überprüfte ich mit 
TRON den Programmlauf. Da die Interrupt-Prozeduren von 
TRON ausgeschlossen werden (!), konnte ich so auch nichts er¬ 
kennen. Nach einiger - haareraufend verbrachter - Zeit kam mir 
der Geistesblitz, daß ja die Timdat-Routine auch dann immer 
wieder durch EVERY aufgerufen wird, wenn man innerhalb von 
Timdat gerade mit der Zeit- oder Datumseingabe beschäftigt ist. 
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Daraus entstand - quasi rekursiv - das Durcheinander. Erst als 
ich vor dem Timdat-Aufruf EVERY STOP und danach EVERY 
CONT einsetzte, funktionierte alles wieder so, wie es sollte. 


EVERY CONT { EV CONT } Interrupt-Routine freigeben 


EVERY CONT 

Nimmt nach EVERY STOP die EVERY-Interrupt-Kontrolle 
wieder auf. EVERY GOSUB wird wieder ausgeführt. 


EVERY STOP { EV STOP } Interrupt-Routine sperren 


EVERY STOP 

Unterbricht die EVERY-Interrupt-Kontrolle. EVERY GOSUB 
wird nicht mehr ausgeführt. Fortsetzung erst wieder durch 
EVERY CONT. 
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12.7 Debugging 


DUMP { DU } Variableninhalte/Namen ausgeben 


DUMP [Defstring$ ] [TO Datei$] 

Wird DUMP ohne Optionen verwendet, werden die Inhalte aller 
Variablen sowie die Dimensionierungen aller Felder ausgegeben. 

In DeftsringS kann optional eine nähere Spezifikation angegeben 
werden: 

"a" Die Inhalte aller Variablen sowie die Dimensionierungen 
aller Felder, deren Name mit a beginnt, werden ausge¬ 
geben. 

Alle Label-Namen sowie ihre Zeilennummer werden 
ausgegeben. 

":a" Alle Label-Namen, die mit a beginnen, sowie ihre 
Zeilennummer werden ausgegeben. 

"(®" Alle Prozedur- und Funktionsnamen sowie ihre Zeilen¬ 
nummer werden ausgegeben. 

"(®a" Alle Prozedur- und Funktionsnamen, die mit a begin¬ 

nen, sowie ihre Zeilennummer werden ausgegeben. 

Ausgegebenen Prozedurnamen wird als Kennung @ angehängt, 
sowie dahinter - falls die Prozedur im aktuellen Programm noch 
existiert - die Nummer der Zeile, in der die Prozedur beginnt. 
Dasselbe geschieht bei Namen noch existierender Funktionen. 
Diese erhalten jedoch als Kennung ein FN. Die Namen von 
String-Funktionen werden zusätzlich noch mit einem $ gekenn¬ 
zeichnet. 
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Prozeduren, Funktionen und Label, die definiert waren und 
wieder aus dem Programm gelöscht wurden, werden ohne 
Zeilennummern dargestellt. Dagegen sind nicht mehr existie¬ 
rende Variablennamen - die ebenfalls ausgegeben werden, so¬ 
lange sie noch in der internen Liste stehen - auf den ersten 
Blick nicht zu erkennen. Das einzige Merkmal ist, daß sie keinen 
Inhalt haben (0 bzw. ""), was jedoch bei noch existierenden 
Variablen ebenso der Fall sein kein. 

Durch Save,A, New und anschließendes Merge werden die 
überflüssigen Namen aus der internen Referenzliste entfernt 
(siehe 24.5 "Der Editor"). 

Bei String-Variablen werden max. 60 Zeichen ihres Inhalts aus¬ 
gegeben, die dann in " (Anführungszeichen) eingeschlossen sind. 
Ist der Inhalt länger als 60 Zeichen, steht am Textende das 
Zeichen >. Enthält der String Zeichen mit einem ASCII-Wert 
unter 32, werden diese Zeichen durch einen Punkt . repräsen¬ 
tiert. Es kann außerdem - unabhängig von der Option Deft- 
stringS - hinter dem Zusatz TO in DateiS der Name einer Datei 
angegeben werden, in die dann die DUMP-Ausgaben umgeleitet 
werden. Diese Datei erhält - sofern keine andere angegeben wird 
- die Extension .DMP., ggf. schon existierende .DMP-Dateien 
gleichen Namens erhalten die Backup-Extension .BAK.. 


TR ACE$ Im Trace-Modus aktuelle Befehlszeile liefern 


Var$ = TRACE$ 

Innerhalb der durch TRON Proc bestimmten Prozedur kann 
durch die reservierte Variable TRACES der Text der aktuellen 
Programmzeile vor ihrer Ausführung ermittelt werden. Außer¬ 
halb dieser Prozedur ist TRACES ohne Inhalt. 

Ein Beispiel zu TRACES finden Sie unter TRON Proc. 
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TROFF { TROF } Treco-Modu# ausafchatten 


TROFF 

Im Anschluß an TROFF ist das Programm wieder im normalen 
Ausführungsmodus. TRON - sowie TRON Proc in Version V3.0 
- werden ausgeschaltet. TROFF innerhalb einer TRON-Proc- 
Routine hat keine Wirkung. 


TRON Proc { TR } Traco-Modus In Prozedur lenken 


TRON Prozedurname 

Dies ist eine V3.0-Variante des bekannten TRON-Befehls. Sie 
lenkt den Trace-Modus in die durch Prozedurname angegebene 
Prozedur um. Dabei wird nicht - wie bei TRON sonst üblich - 
automatisch die aktuelle Befehlszeile ausgegeben, sondern es 
kann beliebig auf die durch TRACES ermittelte, als nächstes 
auszuführende Befehlszeile oder ggf. auf die durch DUMP er¬ 
mittelten Variableninhalte reagiert werden. 

Auch TRON Proc wird ggf. durch TROFF deaktiviert. 

Möchten Sie eine Debugging-Routine selbst schreiben, so kann 
Ihnen TRON Proc dabei nicht helfen, denn sowohl die Inter¬ 
rupt-Routinen AFTER x GOSUB und EVERY x GOSUB als 
auch die hier angegebene Debugging-Prozedur werden von der 
TRACE$-Ausgabe ausgeschlossen. 
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12.8 Diverses 


$ 


Textbereich für V3.0>CompHer deklarieren 


$ Text 

Deklariert beliebige Programmzeilen als Textspeicher zur Weiter¬ 
verarbeitung durch den V3.0-Compiler. Im Interpreter-Betrieb 
wird eine solche Zeile wie REM bzw. ’ behandelt. Nähere In¬ 
formationen sind erst mit Erscheinen des V3.0-Compilers zu er¬ 
warten. 


DEFLIST { DEFLIS } Listing-Format festlegen 


DEFLIST Format 

Format: 

0 Befehlsnamen werden groß, Variablennamen klein ge¬ 
schrieben (PRINT var$). In V3.0 wird bei global dekla¬ 
rierten Variablennamen das Postfix vernachlässigt (Postfix 
siehe DEFxxx-Befehle DEFBYT etc.). 

1 Anfangsbuchstaben von Befehls- und Variablennamen 
werden groß geschrieben (Print Var$). In V3.0 wird bei 
global deklarierten Variablennamen das Postfix vernach¬ 
lässigt. 

DEFLIST kann nur im Interpreter-Direktmodus verwendet wer¬ 
den. 
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DEFNUM { DEFN } Rundung von Ziffern-Ausgabe« 


DEFNUM Stelle 

Stelle gibt die Ziffernstelle an (3 - 13), auf die alle folgenden - 
durch PRINT etc. - auszugebenden Werte gerundet werden sol¬ 
len. Diese Einstellung wird erst durch den nächsten DEFNUM- 
Befehl verändert. Durch Angabe der maximalen Stellenanzahl 
(13) wird die normale Werteausgabe wieder angeschaltet. 

Bei Realzahlen wird der Vorkomma-Anteil, der ggf. hinter Stelle 
liegt, als Nullen ausgegeben. Liegt Stelle im Nachkommabereich, 
werden alle dahinterliegenden Nachkommastellen ignoriert, bzw. 
die nächste Stelle hinter Stelle wird zur Rundung verwendet. 

Die Rundung erfolgt mathematisch exakt (Int(A+0.5)). In diesem 
Format ausgegebene Variableninhalte bleiben von DEFLIST un¬ 
berührt. Die interne Rechengenaugkeit wird hierdurch nicht be¬ 
einträchtigt. Beispiel: 

a=RANDOM(1000000>+RND 

PRINT "Originalwert: ";a;CHRS<10) 

FOR iX=3 TO 11 
DEFNUM iX 

PRINT a,"DEFNUM ";iX 
NEXT iX 


FALSE 


Unwahr-Konstant» 


Var=FALSE 

Reservierte Variable. Enthält konstant den Un-Wert 0. 
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LET { LE} 


Daten zuweisen 


LET Var=Wert 
LET Var$=Text 

Es wird Wert bzw. Text der angegebenen Variablen zugewiesen. 
Der LET-Befehl ist eigentlich überflüssig, da es bei Variablen¬ 
namen keine Einschränkungen (außer PI, ERR, FATAL, TIMER 
etc.) mehr gibt und so die Variablen von der Syntax her deutlich 
sind. Hier hat LET nur noch den Zweck der Kompatibilität zu 
den BASIC-Dialekten (z.B. AmigaBASIC), deren Programme 
man durch Merge in den GFA-Arbeitsspeicher laden kann. 


MODE{ MOD } Zahlen/Datum -> Europa/USA wählen 


MODE Modus 

In der Grundeinstellung werden in GFA-BASIC durch PRINT 
USING Werte im Europa-Format ausgegeben. D.h. ggf., daß als 
Tausendertrennung ein Komma und als Dezimaltrennung ein 
Punkt verwendet wird. In den USA gelten die umgekehrten 
Konventionen. Ähnliches gilt für die Darstellung des Datums 
(siehe SETTIME). 

Modus ist als 2-Bit-Vektor anzusehen, dessen Bit 0 die Darstel¬ 
lung des Datums durch DATES und FILES bzw. über das Ein¬ 
gabeformat des Datums bei SETTIME und DATE$= bestimmt. 
Bit 1 entscheidet über die zu verwendende Art der Werte-Dar- 
stellungsart bei PRINT USING-Ausgaben bzw. bei Verwendung 
von STR$(). 
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Modus 

USING 

DATES 

&X00 

#,###•## 

25.05.1988 

&X01 

#,###•## 

05/25/1988 

&X10 

#•###,## 

25.05.1988 

itXll 

#■###,## 

05/25/1988 


TRUE 


Wahr-Konstante 


Var=TRUE 

TRUE ist eine reservierte Variable, die konstant den Wert -1 
enthält. Bei verschiedenen Funktionen (z.B. EXIST) wird ein 
Wahrheitswert zurückgegeben. Zur besseren Übersichtlichkeit 
kann bei Bedingungsabfragen dieser Art, bei Bit-Flag-Verwal¬ 
tung oder Zuweisungen etc. statt des Wertes -1 die Konstante 
TRUE verwendet werden (siehe auch FALSE). 

Beispiel 1: 

FILESELECT "FileBox","Laden","SYS:",FS I Datei wählen 

IF EXIST(F$)=TRUE ! Datei auf Disk? 

... weiteres 
... Programml 


Beispiel 2: 

DO I Endlos-Schleife 

IF M0USEK=1 ! Linke Maustaste gedrückt? 

bitflag!=bitflag! XOR TRUE ! Flag bei jedem Mausklick 

1 ! Abwechselnd an- und ausschalten 

onoffX=ABS(bitflag!=TRUE) ! Ergibt: An = 1/Aus = 0 

PRINT AT(1,1);RIGHTS("an ",3*onoffX) 

PRINT AT(1,1);RIGHTS("aus",3*ABS(onoffX=FALSE)) 

PAUSE 6 ! Kleine Klickpause 

ENDIF 

CIRCLE MOUSEX*onoffX,MOUSEY*onoffX,10*onoffX 
LOOP 


Vielleicht können Sie im obigen Beispiel auf Anhieb nicht viel 
mit den beiden PRINT-Zeilen anfangen. Dadurch, daß ich eine 
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Wahrheitsabfrage in die Zeilen mit einbaue, erspare ich mir eine 
entsprechende IF-Abfrage. Die Variable Onoff% enthält, je 
nachdem, ob das Bitflag! -1 oder 0 ist, den Wert 1 oder 0. Mit 
der RIGHTS-Konstruktion lasse ich nur dann die Ausgabe des 
Strings zu, wenn der Wert 3 (Länge des Strings) mit 1 multipli¬ 
ziert wird. Steht in Onoff% der Wert Null, ist die zu ermittelnde 
RIGHT$-String-Länge ebenfalls Null und es wird kein String 
ausgegeben. 

Im Normal verfahren würde die Konstruktion so aussehen: 


IF Bitftag!=TRUE 
PRINT AT(1,1 );"an '• 
ELSE 

PRINT AT(1,1);"aus" 
ENDIF 


SWAP { SW } Varlablen/Felder/Pointer tauschen 


SWAP Var1,Var2 

SWAP Element(x),Element(y) 

SWAP Feld1(),Feld2() 

SWAP *Pointer,Feld() 

Dies ist der SWAP-Befehl, in V3.0 gibt es SWAP() auch als 
Funktion. 

SWAP tauscht die Inhalte zweier gleichartiger Variablen, Felder 
oder Feldelemente (numerische oder alphanumerische) bzw. 
einen Zeiger auf einen Feld-Descriptor (siehe *) mit dem 
Descriptor des angegebenen Feldes (Feldübergabe an Prozedu¬ 
ren). Bei Feldern wird auch die Dimensionierung vertauscht. Es 
ist bei Pointer/Feld-SWAP nicht nötig, das angegebene Feld 
vorher zu dimensionieren. 
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Beispiel 1: 

AX=100 

BX=1000 

Print "AX, BX vor SWAP:";AX'BX 
Swap AX,BX 

Print "AX, BX nach SUAP:";AX'BX 

Beispiel 2: 

Dirn AX(10) 

3Routine(*AXO) 

Procedure Routine(XX) 

Swap *XX, DummyXO 

... Ab hier ist das vorherige Feld AX() unter 
... dem Namen DummyXO ansprechbar. Feld AX() 

... ist leer. 

... Routinentext 

Swap *XX,OurmiyXO 

... Ab hier ist Feld DummyXO wieder Feld AXO 
... und Feld DummyXO ist wieder leer. 

Return 

Diese indirekte Übergabe von Feldern an Prozeduren hat den 
Vorteil, daß das durch SWAP in die Prozedur "hineingetauschte" 
Feld nicht unter seinem eigentlichen (globalen) Namen ange¬ 
sprochen werden muß, sondern innerhalb der Prozedur unter 
einem lokalen Namen angesprochen und bearbeitet werden kann. 

Genaugenommen ist diese Konstruktion in der Version 3.0 je¬ 
doch überflüssig, da hier Felder genauso wie Variablen durch 
VAR direkt an die Prozedur übergeben werden können: 

DIM feldX(l) 
xyz(feldXO) 

PRINT FeldX(l) 

PROCEDURE XyztVAR DummyfeldXO) 

DumnyfeldXO )=100 
RETURN 
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VOID { V } 


Dummy-Zuweisung 


VOID Funktion 

VOID ist ein Ersatz für eine sogenannte Dummy-Zuweisung, je¬ 
doch - vor allem in Compilaten - erheblich schneller. Es wird 
eine Funktion aufgerufen, ohne dieser eine Rückgabe-Variable 
zur Verfügung stellen zu müssen. In vielen Fällen ist die Zu¬ 
weisung des Funktionsergebnisses an eine Aufnahme-Variable 
bei Funktionsaufrufen unnötig, da das Ergebnis nicht von 
Interesse ist. Um Speicherplatz (und Zeit) zu sparen, können 
diese Funktionen mit VOID aufgerufen werden. 

Beispiel: 

Statt: A=INP(2) ! Auf Taste warten 

--> VOID 1NP(2) 

Statt: A=FRE(0) ! Garbage-Collection 

--> VOID FRE(O) 
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13. Interaktionen (Programm/Benutzer) 


ALERT { A } 


Alert-Box erstellen 


ALERT lcon%, BoxtextS, Def_Button%, Buttontext$, Backvar% 

Diese an Intuition angelehnte Funktion erlaubt es, mit dem An¬ 
wender unkompliziert zu kommunizieren. Prinzipiell lassen sich 
damit sogar umfangreiche Menüs verwalten. Da die ALERT-Box 
(wachsam,alarmbereit) aber nur maximal drei Auswahlmöglich¬ 
keiten zur Verfügung stellt, ist sie eher für kleinere Abfragen 
oder Hinweistexte geeignet. 

lcon% 

Stellt eine Zahl dar, unter der man ein Symbol abrufen kann, 
das den Character der Nachricht kennzeichnen soll. Dies ist aber 
leider in der Amiga-Version 3.0 noch nicht implementiert. 

BoxtextS 

Hier wird der eigentliche Text (Mitteilung/Frage) an die Funk¬ 
tion übergeben. Das Pipe-Zeichen | gilt darin als Trennungs¬ 
zeichen zwischen den einzelnen Zeilen. Es können insgesamt 5 
Zeilen zu maximal je 40 Zeichen dargestellt werden. Der Text 
kann direkt in den Befehl geschrieben, als String-Ausdruck oder 
auch als String-Variable übergeben werden. 

Def_Button% 

Es wird die Nummer (1,2,3) des Buttons übergeben, der außer 
durch Mausklick auch durch die <Return>-Taste (default) bestä¬ 
tigt werden kann. Dieser Button wird in der Box stark umrandet 
gezeichnet (0 = kein Default-Button). 
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Buttontext$ 

Hierdurch erfolgt die Beschriftung der Buttons. Auch hier gilt 
das |-Zeichen als Trennstrich zwischen den einzelnen Button- 
Texten. 


Backvar% 

Numerische Variable, in der der Befehl die Nummer des be¬ 
stätigten Button (1,2,3) zurückgibt. 

Beispiel: 

boxtext$="Klicken Sie bitte eines'der unteren Kästchen an!" 
boxtext$=b_oxtext$+"jIch sage Ihnen dann, welchesjes war!" 
buttontext$="XX 1 xx|xx 2 XX|XX 3 XX" 

ALERT 0,boxtext$,0,buttontextS,backvarX 

boxtext$="Es war : j [das Kästchen "+STR$(backvarX) 

buttontextS=" OKAY ! OKAY | OKAY " 

ALERT 0,boxtext$,2,buttontext$ ( backvarX 


Diese Form der Alert-Box ist aus Gründen der Sicherheit nicht 
besonders variabel. Vom Interpreter werden sämtliche Eingaben 
auf ihre Zulässigkeit überprüft. Werden z.B. mehr als 40 Zeichen 
Boxtext in einer Zeile angegeben, wird die Zeile vom Interpreter 
nach dem 40sten Zeichen abgeschnitten. 

Wer die eigentliche Request-Box kennt, der wird verstehen, daß 
man Einschränkungen in der Bemessung gemacht hat. 


FILESELECT { FILE } Datei auswählen 


FILESELECT Titer,''OKTextV Pfad“, Backvar$ 

Erstellt ein Dialog-Formular zur Dateiauswahl und liefert den 
gewählten Dateinamen (ggf. inkl. Pfad). 

Bei Rückkehr zum Programm sind vier verschiedene Eintrags¬ 
möglichkeiten in BackvarS möglich: 
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1. Wurde vom Anwender eine Datei gewählt, steht ihr Name 
auch anschließend zusammen mit dem vollständigen Pfad 
in BackvarS. 

2. Wurde die OK-Box ohne Auswahl bedient, gibt es zwei 
Varianten: 

2a. Es wurde durch Auswahl ein Dateiname übergeben, der 
noch in der Eintragszeile steht und die Ok-Box bedient, 
dann steht dieser Name oder Pfad-Eintrag auch in Back- 
var$. 

2b. Es wurde keine Auswahl getroffen und auch kein Name 
übergeben, bzw. die Eintragszeile wurde vom Anwender 
gelöscht und die OK-Box wurde bedient, dann wird in 
BackvarS ein Leer-String zurückgegeben. 

3. Wird Abbruch angeklickt, ist BackvarS absolut leer. 

Dies ist einer der wichtigsten Befehle zur Bewältigung von 
Diskettenoperationen. Die Menge an Funktionen, die dieser so 
einfach scheinende Befehl in sich vereinigt, kann man nur er¬ 
messen, wenn man schon einmal versucht hat, auf die her¬ 
kömmliche Weise Dateien zu speichern, zu laden, zu löschen 
oder zu verändern. 

Diese Box listet in einem Fenster die unter dem angegebenen 
Pfadnamen (Zeile unter den File-Einträgen) verfügbaren Dateien 
auf. Alle mit einem Stern gekennzeichneten Dateien stellen soge¬ 
nannte Subdirectories ( Unter-Inhaltsverzeichnis) dar, in denen 
weitere Dateien unter dem für dieses Subdirectory typischen 
Pfadnamen abgespeichert sein können. Durch Anklicken des 
Sub-Dir-Namens wird es geöffnet, und die darin befindlichen 
Dateien können angewählt werden. Verlassen wird ein Unter- 
Verzeichnis, indem man das kleine Feld links oben unter der 
Titelzeile anklickt. 

Da GFA-BASIC immer die Disk-Station zur aktuellen erklärt, 
von der das Programm geladen wurde, kann es notwendig wer¬ 
den, im Pfadnamen die Stationsangabe zu ändern. Sie können 



362 


Das große GFA-BASIC-Buch 


dazu einmal aus den zur Verfügung stehenden Geräten auswäh¬ 
len, die von GFA-BASIC in der Zeile unter der File-Tabelle 
aufgelistet werden, indem Sie mit dem Mauszeiger in dieser 
Zeile ein Feld anklicken. Ein anderer Weg ergibt sich durch 
eigenständige Eingabe des Pfadnamens in dem String-Gadget, 
klicken Sie dazu auf dieses Gadget. Nach der Änderung 
brauchen Sie jetzt nur noch die RETURN-Taste zu betätigen, 
und d?s neue Directory wird angezeigt. 

Es folgt eine fast unscheinbare Routine, die es aber in sich hat. 
Wie oft stellt sich die Aufgabe, die Richtigkeit einer Datei¬ 
namen-Eingabe zu überprüfen oder ein Backup-File anzulegen. 
Während der eigentliche Dateiname in den allermeisten Fällen 
für den Anwender frei bestimmbar ist, hat man als Program¬ 
mierer doch oft ein Interesse daran, daß die Extension richtig 
gesetzt ist. Um sicherzustellen, daß garantiert die richtige 
Extension verwendet wird, kann man diese Prozedur folgender¬ 
maßen aufrufen: 


FILESELECT "Titel","OK","RAM:#?.ABC",aS ! Eingabe des Dateinamens 
3extend(a$,"ABC“,*n_file$) ! Extension überprüfen 
PRINT n file$ 


PROCEDURE extend(pr$,ex$,psX) 

1 Pr$ = Dateipfad u. -name 
' Ex$ = gewünschte Extension 
1 PsX = String-Rückgabe 


LOCAL nlX,dn$,iX 
IF RIGHT$(pr$)<>"/" AND pr$>"" 

1 ! Gültiger Dateiname? 

FOR iX=LEN(pr$) DOUNTO 1 ! Namen von hinten aus nach dem 

1 ! erstem Backslash durchsuchen 

INC nlX ! Zeichen mitzählen 

EXIT IF MID$(pr$,iX,1)="/" ! Exit, wenn Backslash erreicht 
NEXT iX 


dn$=RIGHT$(pr$,nlX) 
IF INSTR(dn$,".")=0 
*psX=pr$+"."+ex$ 
dn$=dn$+"."+ex$ 


! Reinen Dateinamen bilden 
! Keine Extension enthalten? 

• Pfad und Extension zurückgeben 
! Namen komplettieren 


ENDIF 

IF RIGHT$(dn$,4)o"."+ex$ ! Falsche Extension? 

IF LEFT$(dn$,1)<>"." ! Name größer als nur Extension? 

*psX=LEFT$(pr$,LEN(pr$)-nlX)+LEFT$(dn$,INSTRtdnS,"."))+exJ 
1 ! Pfad + Name + Extension zurück 

ELSE ! Name besteht nur aus Extension! 

*psX="000" ! Unbrauchbaren Namen zurückgeben 
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ENDIF 

ELSE ! Richtige Extension! 

*ps%=LEFT$(pr$,LEN(pr$)-nl%)+dn$ I Pfad + Name zurück 
ENDIF 

ELSE I Ungültiger Dateiname! 

*psX="000" ! Unbrauchbaren Namen zurückgeben 

ENDIF 
RETURN 

Wurde in diesem Beispiel in der FILESELECT-Box ohne Ände¬ 
rung einfach die OK- oder ABBRUCH-Box angeklickt, erhält 
man in N_file$ nach Extend-Aufruf den Ausdruck 000. Das 
gleiche geschieht, wenn vom Anwender entweder die Auswahl¬ 
zeile ersatzlos gelöscht wurde oder nur die Extension geändert, 
aber kein Name dazu eingegeben wurde. In allen anderen Fällen 
wird die Extension des eingegebenen Namens mit der Vorgabe 
im zweiten Parameter-String des Extend-Aufrufs verglichen und 
bei Nicht-Übereinstimmung durch die Vorgabe ersetzt. An¬ 
schließend erhalten Sie den gesamten Dateinamen mit evtl, geän¬ 
derter Extension in N fileS zurück. 

Bei Backup-Files kommt noch eine zweite Mini-Routine zum 
Einsatz. Die Auswirkung einer Backup-Routine begegnet Ihnen 
immer dann, wenn Sie ein .GFA- oder .LST-File abspeichern, 
dessen Name bereits auf der Diskette existiert. GFA-BASIC än¬ 
dert dann automatisch die Extension der bereits bestehenden 
Datei in .BAK um. 

Diese Routine Backup erwartet zwei Parameter-Strings. Der erste 
gibt den Namen an, unter dem die Datei abgelegt werden soll. 
Der zweite bestimmt die Extension, die Sie jener Datei geben 
wollen, die evtl, unter demselben Namen wie die neue Datei 
schon auf Diskette existiert und nun als Backup gesichert wer¬ 
den soll. 

Die Backup-Routine erledigt nun das Finden und Umbenennen 
mit Hilfe der Extend-Routine, so daß Sie anschließend Ihre 
neue Datei anlegen können. Als Beispiel lege ich hier die erste 
BitPlane des Workbench-Screen auf Diskette ab. Der Backup- 
Effekt wird erst deutlich, wenn Sie das Programm zweimal Star- 
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ten und sich die Dateien mit FILES im Direktmodus anschauen. 
Sie haben nun zwei Dateien mit gleichem Namen, aber unter¬ 
schiedlicher Extension. 


FILESELECT "Backup Test","Test","RAM:",a$ ! Eingabe des Dateinamens 
abackup(a$,"BAK") I Evtl. Backup anlegen 

aextend(a$,"SCR",*n$) ! Extension überprüfen 

IF n$<>"000" I Brauchbarer Pfad + Name? 

BSAVE n$,SCREEN(0)+184,20480! Datei anlegen 

ENDIF 


PROCEDURE backup(pr$,ex$) 

1 Pr$ = Dateipfad u. -name 
• Ex$ = Backup-Datei-Extension 
LOCAL xnS 

IF EXIST(prS) ! Datei auf Diskette vorhanden? 

3extend(pr$,exS,*xnS) I Backup-Extension einbauen 

IF xnS<>"000" ! Brauchbarer Dateiname? 


IF EXIST(xnS) ! Schon Backup-File vorhanden? 

KILL xnS ! Dann löschen 

ENDIF 

NAME pr$ AS xn$ ! Alte Datei auf Backup umbenennen 
ENDIF 
ENDIF 
RETURN 


MOUSE { MOU } Maus-Status ermitteln (gesamt) 


MOUSE Xpos.Ypos,Tasten 

In Xpos und Ypos wird die aktuelle X- bzw. Y-Koordinate des 
Mauszeigers sowie in Tasten der Status der Maustasten über¬ 
geben. 


0 = Keine Taste gedrückt 

1 = Linke Taste gedrückt 

2 = Rechte Taste gedrückt 

3 = Beide Tasten gedrückt 

4 = Mittlere Taste gedrückt 


(Bit 0 

-> 

2*0 = 1) 

(Bit 1 

-> 

2*1 = 2) 

(Bit 0+1 

-> 

2*0+2*l = 3) 

(Bit 2 

-> 

*2 = 4) 




Interraktionen (Programm/Benutzer) 


365 


Als Bit-Vektor betrachtet, sind von Tasten nur die untersten 2 
Bits interessant. Dabei steht Bit 0 für die linke Maustaste und 
Bit 1 für die rechte. 

Anmerkung: In Version V3.0 werden (bzw. bei CLIP OFFSET) 
in Xpos und/oder Ypos auch negative Werte geliefert, wenn sich 
der Mauszeiger links und/oder oberhalb des Windows (bzw. des 
CLIP-Nullpunkts) befindet. 

Beispiel: 

Im Zusammenhang mit der Maus stellt sich immer wieder das 
Problem, einen Bildschirmbereich zu umrahmen, um ihn für 
spätere Zwecke zu definieren oder zu kennzeichnen. Aus diesem 
Grund habe ich eine Prozedur entworfen, die Ihnen weitgehend 
freie Hand läßt und die nach eigenem Bedarf verändert oder 
erweitert werden kann. Diese Routine stellt allerdings DEFLINE 
0,0,0,0, COLOR 1 und GRAPHMODE 1 ein, so daß ggf. nach 
Aufruf die vorher gültigen Einstellungen restauriert werden 
müssen. Sie können diese Einstellungen natürlich auch in der 
Routine verändern, um andere Effekte zu erzielen (z.B. in 
GRAPHMODE 3 oder COLOR 0). 

Grundsätzlich funktioniert die Prozedur exakt genauso wie die 
Workbench-Funktion. Hier ist es allerdings gleichgültig, ob die 
linke, die rechte oder beide Maustasten gedrückt wurden. 
Ebenso wie die Workbench-Funktion muß die Prozedur mit ge¬ 
drückter Maustaste aufgerufen werden, da sie sonst sofort 
wieder beendet wird. Ein wesentlicher Unterschied ist, daß diese 
Prozedur auch negative Minimalwerte verarbeitet, das heißt, die 
Koordinaten der Endposition des Mauspfeils können kleiner sein 
als die Koordinaten der Startposition. In diesem Fall erhält man 
in den beiden Rückgabevariablen auch negative Box-Ausmaße. 

Deffill ,2,4 ! DEFFILL grau 

Pbox 10,10,200,200 ! Hintergrund zeichnen 

Do ! Endlos-Schleife 

If Housek ! Maustaste gedrückt? 

Mouse X%,Y%,K% ! Startkoordinaten holen 

Rubberbox(X%,Y%,-30,-30,*XxX,*Yy%) ! Aufruf 
Box XX,YX,X%+XxX,YX+YyX! Box zeichnen 
Endif 
Loop 



366 


Das große GFA-BASIC-Buch 


Procedure Rubberbox(XpX,YpX,XminX,YminX,XretX,YretX) 

1 XpX = X-Startkoordinate 
1 YpX = Y-Startkoordinate 

1 XminX = Minimale Breite der Guimi-Box (auch neg.) 

1 YminX = Minimale Höhe der Gimni-Box (auch neg.) 

' XretX = Pointer auf 4-Byte-Integer, die nach AbschluB 
1 die letzte Breite der Box enthält (auch neg.) 

1 YretX = Pointer auf 4-Byte-Integer, die nach AbschluB 
1 die letzte Höhe der Box enthält (auch neg.) 

' Local Sc1 $,Sc2$,Sc3$,Sc4$,Mx1X,Mx2X,Mx2X,My2X,MkX 
Oefline 0,0,0,0 ! DEFLINE voll/dünn 

Color 1 ! COLO« schwarz 

Graphmode 1 ! Replace-Modus 

Repeat 

Mouse Mx1X,My1X,MkX ! Neue Koordinaten holen 

Mx2X=Max(XpX+XminX,Mx1X) ! X-Koordinate auf Minimum trimmen 
My2X=Max(YpX+YminX,My1X) ! Y-Koordinate auf Minimum trimmen 
Get Min(xpX,Mx2X),Min(ypX,My2X),... Es wird der 

..,Max(Mx2X,xpX),Min(ypX,My2X),Sc1$ ! Hintergrund 
Get Max(xpX,Mx2X),Min(ypX,My2X),... ! jeder Box-Linie 

...Max(Mx2X,xpX),Max(ypX,My2X),Sc2S ! einzeln 
Get Min(xpX,Mx2X),Max(ypX,My2X),... ! gesichert 

...Max(Mx2X,xpX),Max(ypX,My2X),Sc3S I (Speicherplatz- 
Get Min(xpX,Mx2X),Min(ypX,My2X),... ! Ersparnis!) 

...Min(Mx2X,xpX),Max(ypX,My2X),Sc4$ ! 

Box XpX,Yp%,Mx2X,My2X !--' 

Repeat ! Warte... 

On menu ! Ereignis-Überwachung I 

Until MousexoMxlX Or MouseyoMylX Or Mousek=0 
1 ...bis die Maus bewegt oder ein Mausknopf gedrückt wird 
Put Min(XpX,Mx2X),Min(YpX,My2X),Sc4S !--. 

Put Min(XpX,Mx2X),Max(YpX,My2X),Sc3$ ! Box-Hintergrund 
Put Max(Xp%,Mx2X),Min(YpX,My2X),Sc2$ ! restaurieren 
Put Min(XpX,Mx2X),Min(YpX,My2X),Seit !--• 

Until MkX=0 ! Exit, wenn Maustaste = 0 

*XretX=Mx2X-XpX ! Letzte Breite der Box zurück 

*YretX=My2X-YpX ! Letzte Höhe der Box zurück 

Return 

Weitere Beispiele zur Maus-Abfrage finden Sie in Hülle und 
Fülle im Buch verteilt. 
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MOUSEX, MOUSEY, MOUSEK 


Maus-Status ermitteln (einzeln) 

Var=MOUSEX = > X-Position 
Var=MOUSEY = > Y-Position 
Var=MOUSEK = > Maustastenstatus (siehe MOUSE) 

Einzelabfrage-Funktionen für den jeweils gewünschten Maus- 
Status. In Version V3.0 siehe Anmerkung zu MOUSE. 


STICK { STI } Maus-Port-Abfragemodus bestimmen 


STICK(Modus) - Befehl - 

Bestimmt den Abfragemodus der Maus-/Joystick-Ports. Aller¬ 
dings wurde er im Amiga-GFA-BASIC nur aus Kompatibilitäts¬ 
gründen implementiert und hat selbst keine Wirkung. 


Modus: 

0 Mau8modu8 
1 Joystick-Modus 

MOUSE-Befehle und STICK() schalten automatisch den ent¬ 
sprechenden Modus ein, wodurch der Befehl STICK in den 
meisten Fällen überflüssig ist. 

Ein Beispiel finden Sie unten unter STICKQ. 
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STICKQ Maus-Port Im Joystick-Modus abtragen 


Var=STICK(Maus-Port) - Funktion - 

Ermittelt den aktuellen Status des angegebenen Maus-Ports (0 
oder 1). STICK(l) kann auch abgefragt werden, wenn durch den 
STICK-Befehl nicht der Joystick-Modus eingeschaltet ist. 
STICK(O) liefert dagegen nur im Joystick-Modus brauchbare 
Werte. 

Es werden folgende Werte geliefert: 


5 1 9 

\ / 

\ / 

/ \ 

/ \ 

6 1 10 


Als Bit-Vektor betrachtet sind von STICK() nur die untersten 4 
Bits interessant: 


Bit 0 Joystick hoch 
Bit 1 Joystick runter 
Bit 2 Joystick links 
Bit 3 Joystick rechts 


Beispiel: Dieses Programm erwartet, daß ein Joystick in Port 0 
(eigentlich Maus-Port) angeschlossen ist. 


CIRCLE 7,7,6 
CIRCLE 7,7,4 
LINE 1,7,13,7 
LINE 7,1,7,13 
GET 0,0,15,15,3$ 
xX=160 
y%=100 
STICK 1 
DO 


Pseudo-Sprite bauen 


X-Startkoordinate 
Y-Startkoordinate 
Joystick-Modus einschalten 


PRINT AT(1,1); 


;AT(1,2); 





Interraktionen (Programm/Benutzer) 


369 


IF STICK(O) AND 1 
yX=MAX(0,yX-1) 
ENDIF 

IF STICK(O) AND 2 
yX=MIN(199,yX+1) 
ENDIF 

IF STICK(O) AND 4 
xX=MAX(0,xX-1) 


! Joystick nach oben? 

! Y-Koordinate vermindern 

! Joystick nach unten? 

! Y-Koordinate erhöhen 

! Joystick nach links? 

! X-Koordinate vermindern 


ENDIF 

IF STICK(O) AND 8 ! Joystick nach rechts? 

xX=MIN(319,xX+1) • X-Koordinate erhöhen 
ENDIF 
VSYNC 

IF STRIG(O) ! Fire-Button gedrückt? 

PRINT AT(1,1);»Feuer" 

COLOR 0 

FOR iX=0 TO 6 ! -. 

CIRCLE xX+7,yX+7,iX !- Grafischer Effekt 

NEXT iX ! - 1 

PRINT AT(1,1);" •' 

ENDIF 


PUT xX,yX,a$ ! Pseudo-Sprite setzen 

LOOP 


STRIG() Joystick-Fire-Buttons abfragen 


Var =STRIG (Maus-Port) 


Ermittelt den aktuellen Status des Fire-Buttons am angegebenen 
Maus-Port (gedrückt = 1, nicht gedrückt = 0). 


Ein Beispiel finden Sie oben unter STICK(). 





370 


Das große GFA-BASIC-Buch 



Window- und Screen-Programmierung 


371 


14. Window- und Screen-Programmierung 


Der Amiga ist in der Lage, beliebig viele Windows zu verwalten. 
Das steht in einem großen Gegensatz zum Atari ST, auf dem die 
Programmiersprache GFA-BASIC ihren großen Siegeszug be¬ 
gann. Trotzdem sind viele Befehle so übernommen worden. Sie 
haben einige zusätzliche Parameter bekommen. Außerdem hat 
der Amiga die Fähigkeit, diese vielen Windows auch noch auf 
unterschiedlichen Screens mit ganz verschiedenen Grafik- 
Eigenschaften zu verwalten. Auch dazu bietet die GFA-BASIC- 
Version 3.0 auf dem Amiga einige Befehle. 

Zur Unterscheidung der Window- und Screen-Kommandos, die 
größtenteils mit gleichen Namen zu besetzen sind (siehe OPEN, 
CLOSE, MOVE ...), hat man sich überlegt, daß ein Buchstabe 
am Ende des Befehls ausreichen müßte, um den Unterschied 
deutlich zu machen. Deshalb enden alle Window-Befehle mit 
einem "W" und alle Screen-Kommandos mit einem "S”. 


14.1 Die Window-Befehle des GFA-BASIC 


CLEARW { CL W } Fenster-Inhalt löschen 


CLEARW Nummer 
CLEARW [#]Nummer (nur V3.0) 

Das Fenster, dessen Nummer (0 - 15) hiermit übergeben wird, 
wird gelöscht. Der Befehl CLS kann ebenfalls verwendet werden. 
Allerdings kann dadurch nur das jeweils aktuelle Window ge¬ 
löscht werden, und dieser Befehl kann Grafiken, die im rechten 
oder unteren Rand stehen, nicht erfassen. 

Das Löschen des Fensterinhaltes ist immer dann notwendig, 
wenn das Fenster bewegt oder verkleinert wurde. Sie werden 
feststellen, daß bei Bewegungen oder Größenänderungen der 
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Fenster die Inhalte der übrigen Fenster dabei überzeichnet wer¬ 
den. Die Verwaltung der jeweiligen Fensterinhalte ist allein Ihre 
Aufgabe, da niemand außer Ihnen wissen kann, was mit den In¬ 
halten bei bestimmten Zuständen geschehen soll. Es gibt aller¬ 
dings eine von Intuition angebotene Window-Verwaltung, die 
zusätzlichen Speicherplatz kostet. Lesen Sie dazu unter OPENW 
nach! 

PRINT- sowie sonstige Text-Ausgaben können leicht durch eine 
Schleife restauriert werden, die die Textinhalte des Fensters neu 
in das Fenster hineinschreibt. Dagegen ist die Restauration von 
Grafik-Inhalten allerdings eine recht komplizierte Angelegenheit. 
In diesem Fall sollte man nicht auf die Hilfe von Intuition ver¬ 
zichten. 


CLOSEW { CL W } Fenster schließen 


CLOSEW Nummer 
CLOSEW [#]Nummer (nur V3.0) 

Das Fenster mit der angegebenen Window-Nummer wird ge¬ 
schlossen. Dabei sind Werte zwischen 0 und 15 zugelassen. 


FULLW { FU W } Fenster auf maximale Größe bringen 


FULLW Nummer 

FULLW [#] Nummer (nur V3.0) 

Nummer bestimmt die Nummer des Windows (0 - 15), das an 
die oberste Screen-Zeile gesetzt und bis zur untersten vergrößert 
werden soll. Auch die Breite des Windows wird auf den Maxi¬ 
malwert gebracht. 
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OPENW { 0 W } Fenster öffnen 


OPENW Nummer 

OPENW Nummer, Xpos, Ypos, Breite, Höhe, IDCMP, Flaggen [, 
ScreenNr[, BitMap]] 

OPENW 'Nummer 1 öffnet bzw. aktiviert das Window, dessen 
Nummer (0 - 15) übergeben wird. Die Fenster sind dabei zuerst 
ohne Überlappungen folgendermaßen auf dem Workbench- 
Screen angeordnet: 

Window 0: Füllt den gesamtem Screen abzüglich der Screen- 
Titelleiste aus. 

Window 1-4: 


Window 1 

Window 2 



D 1 l UStll 

1 lllll 1 l IC 

Window 3 

Window 4 


Window 5-15: Sind in der gleichen Größe wie Window 1 - 4, 
allerdings zentriert in der Screen-Mitte. 

Die zweite Syntax-Variante gilt für V3.0 und ermöglicht es, 
über einen einzigen Befehl das gesamte Fenster zu definieren. 
Dadurch kann die umständliche Vorgehensweise, die bei 
Betriebssystem-Programmierung nötig ist, entfallen. 

Mit Hilfe der Positionsangaben kann man die linke obere Ecke 
des Windows auf dem Screen bestimmen. Dazu kommt noch die 
Höhe und Breite des Windows in Grafik-Pixeln der aktuellen 
Screen-Auflösung. 
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Wichtig, weil unbedingt von Intuition benötigt, sind die nächsten 
zwei Parameter, die über die Eigenschaften des Windows Aus¬ 
kunft geben. Der erste Wert IDCMP steht für die Kommunika¬ 
tion des Windows mit dem Benutzer. Er gibt an, welche Nach¬ 
richten vom Window an das Programm gesendet werden können, 
um so z.B. die Mitteilung über eine Veränderung der Größe 
loszusqhicken. Dazu steht in direkter Abhängigkeit der zweite 
Wert, mit dem man speziell die Eigenschaften des Windows 
charakterisiert. Es ist hier möglich, aus den System-Gadgets be¬ 
stimmte herauszuwählen oder aber etwas über die Verwaltung 
des Grafik-Speichers dieses Windows anzugeben. 


Die nachfolgenden beiden Tabellen geben Auskunft darüber, 
welche Werte bei den beiden Parametern welche Wirkung haben. 
Da diese Werte aus der Betriebssystem-Programmierung stam¬ 
men, hat man sie als Binär-Flags konstruiert. Das heißt, wir 
haben es bei jeder Eigenschaft mit einem korrespondierenden 
Bit-Flag zu tun, was im Dezimalsystem ungewöhnliche Werte 
erzeugt. Deshalb ist die Tabelle mit drei Werte-Spalten ausge¬ 
rüstet. Die erste Spalte gibt den Wert in dezimal, die zweite in 
hexadezimal und die dritte in binär an, so daß es Ihnen über¬ 
lassen bleibt, ein passendes Zahlensystem auszuwählen. 


IDCMP-Einstellungen 

dezimal hexadezimal binär Flag-Name 

Uirkung 


1 &H00000001 4X00000000000000001 

2 &H00000002 &X00000000000000010 
4 &H00000004 8X00000000000000100 
8 &H00000008 &X00000000000001000 

16 &H00000010 &X00000000000010000 
32 &H00000020 &XOOOOOOOOOOO100000 
64 &H00000040 &X00000000001000000 
128 &H00000080 &X00000000010000000 
256 &H00000100 &X00000000100000000 
512 &H00000200 &X00000001000000000 
1024 &H00000400 &X00000010000000000 
4096 &H00001000 &XOOOO1000000000000 
16384 &H00004000 &X00100000000000000 
32768 &H00008000 &X01000000000000000 
65536 &H00100000 &X10000000000000000 


SIZEVERIFY 

NEUSIZE 

REFRESHUINDOW 

MOUSEBUTTONS 

MOUSEMOVE 

GADGETDOWN 

GADGETUP 

REQSET 

MENUPICK 

CLOSEUINDOU 

RAUKEY 

REQCLEAR 

NEUPREFS 

DISKINSERTED 

DISKREMOVED 
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262144 &H00400000 &XOOOOOOOOOOOOOOOOO ACTIVEWINDOW 
524288 &H00800000 &XOOOOOOOOOOOOOOOOO INACTIVEWINDOW 
1048576 &H00100000 &x00000000000000000 DELTAMOVE 
2097152 &H00200000 &x00000000000000000 VANILLAKEY 
4194304 &H00400000 SXOOOOOOOOOOOOOOOOO INTUITICKS 


Flaggen-Einstellungen 

dezimal hexadezimal binär Flags-Name Wirkung 


0 &H00000000 &x000000000000000000 SMARTREFRESH 

1 &H00000001 &X000000000000000001 WINDOWS!ZING 

2 &H00000002 &X000000000000000010 WINDOWDRAG 
4 &H00000004 &X000000000000000100 WINDOWDEPTH 
8 &H00000008 &X000000000000001000 WINDOWCLOSE 

16 &H00000010 &X000000000000010000 SIZEBRIGHT 
32 &H00000020 &X000000000000100000 SIZEBOTTOM 
64 &H00000040 &X000000000001000000 SIMPLEREFRESH 
128 &H00000080 &X000000000010000000 SUPERBITMAP 
256 &H00000100 &X000000000100000000 BACKDROP 
512 &H00000200 &X000000001000000000 REPORTMOUSE 
1024 &H00000400 &X000000010000000000 GIMMEZEROZERO 
2048 &H00000800 &X000000100000000000 BORDERLESS 
4096 &H00001000 &X000001000000000000 ACTIVATE 
65536 &H00010000 &X010000000000000000 RMBTRAP 
131072 &H00020000 &X100000000000000000 NOCAREREFRESH 


Beispiel: Um z.B. ein Window zu öffnen, bei dem alle System- 
Gadgets vorhanden sind und das aktiv dargestellt wird, muß fol¬ 
gende Zeile eingegeben werden: 


OPENW 0,0,0,640,256,0,4111 


Zur Anwendung des IDCMP-Flags und zur Nachrichten-Über¬ 
mittlung können Sie bei den Menü-Befehlen mehr erfahren. 


TITLEW { TI } Fenster-Titelzeile bestimmen 


TITLEW Nummer, "Window-Titel"!, "Screen-Titel"] 

TITLEW [#]Nummer, "Window-Titel”!, "Screen-Titel"] 

Das Fenster mit der angegebenen Nummer erhält im Titel- 
Balken diese neue Überschrift. Damit kann der Standard-Titel¬ 
text "GFA-BASIC" ersetzt werden. 
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Weiterhin ist es damit möglich, den Screen-Titeltext zu ver¬ 
ändern. Und zwar wird dazu einfach ein weiterer Text ange¬ 
geben, der dann bei Aktivierung in der Screen-Leiste erscheint. 
Dort steht sonst auf dem Workbench-Screen "Workbench Screen" 
zur Information an den Benutzer. Sie können diese Zeile z.B. für 
Programm-Infos oder andere Angaben benutzen. 


FRONTW { FR } Fenster ln den Vordergrund 


FRONTW Nummer 

Mit dieser Funktion wird das angegebene Window, das sich 
vielleicht im Hintergrund befindet, in den Vordergrund ge¬ 
bracht. Das ist wichtig, wenn eine aktuelle Ein- oder Ausgabe 
dort vorgenommen werden soll. Aber auch bei Informations- 
Fenstern, die vom Benutzer gesteuert werden können, geht man 
so sicher, daß sie im Vordergrund liegen. 

Dieser Befehl ist besonders dann wichtig, wenn es keine Depth- 
Arrangement-Gadgets im Window gibt, mit denen der Benutzer 
die Lage bestimmen kann. 


BACKW { BA } Fenster in den Hintergrund 


BACKW Nummer 

Dieser Befehl legt das über Nummer identifizierte Fenster in 
den Hintergrund. Damit gibt man Teile des Screens frei, die für 
andere Fenster gebraucht werden. 
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Dieser Befehl ist besonders dann wichtig, wenn es keine Depth- 
Arrangement-Gadgets im Window gibt, mit denen der Benutzer 
die Lage bestimmen kann. 


MOVEW { MOV } Fenster verschieben 


MOVEW Nummer, Xpos, Ypos 

Das Fenster mit der angegebenen Window-Nummer wird an die 
neue Position innerhalb des Screens bewegt. Damit kann die Be¬ 
nutzer-Operation, das "Draggen", auch vom Programm nach¬ 
vollzogen werden. 

Allerdings ist darauf zu achten, daß an der neuen Position auch 
noch die aktuelle Fenster-Größe möglich ist. Ist dies nicht der 
Fall, "schmiert" der Amiga hoffnungslos ab! 


FenstergröOe bestimmen 


SIZEW { SIZ } 


SIZEW Nummer, Breite, Höhe 

Die Größe eines Fensters läßt sich bei vorhandenem Sizing- 
Gadget vom Benutzer selbst einstellen. In einigen Fällen sollte 
aber diese Beeinflussung nur dem Programm überlassen sein, das 
dies mit wesentlich mehr Kompetenz durchführen kann (man 
weiß ja nie, was nicht alles vom Benutzer zerstört werden 
könnte). 
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Der Befehl S1ZEW erlaubt nun die Angabe neuer Breiten- und 
Höhen-Maße für das betreffende Window, das mit der Nummer 
identifiziert wird. 

Auch bei diesem Befehl ist darauf zu achten, daß die Angabe 
eines Wertes, der es erzwingt, das Window außerhalb des aktu¬ 
ellen Screens abzubilden, zu einem unbearbeiteten Absturz führt. 
Überprüfen Sie also zuerst, ob eine Vergrößerung in gewolltem 
Maße zulässig ist! 


UMITW { LIM } Fenstergröße eirtschränkan 


LIMITW Nummer, Xmin, Ymin, Xmax, Ymax 

Selbst wenn man dem Benutzer mit dem Sizing-Gadget gestattet 
hat, die Größe des Windows einzustellen, muß dies trotzdem 
nicht in vollem Screen-Umfang geschehen. Es reicht durchaus, 
wenn man z.B. nur in einem Bereich von 100 - 400 Bildpunkten 
den X-Wert variieren kann. 

Dazu gibt es das LIMITW-Kommando, das unter Angabe der 
Window-Nummer diesem neue Maximal- und Minimal-Werte 
zuweist. Intuition, also die Verwaltungsroutinen für alle Win¬ 
dows, Screens und andere Bedienelemente, kümmert sich dann 
selbst darum, daß keine anderen Werte gewählt werden. 
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SETWPEN { SETWP } Zeichenstifte festlegen 


SETWPEN LinienStift, FlächenStift 

Der Rahmen eines jeden Window ist uns von der Workbench her 
in ganz einheitlichen Farben bekannt. Die Linien werden in 
Weiß und der Korpus in Blau dargestellt. Das ist aber nicht un¬ 
bedingt festgelegt. Wir können durchaus unter den vorhandenen 
Farben auswählen und dafür andere verwenden. 

SETWPEN gibt mit seinen beiden Parametern neue Standard¬ 
werte an. Das heißt, man muß diesen Befehl VOR dem öffnen 
eines Fensters verwenden, um so die neue Farbgestaltung sicht¬ 
bar zu machen. Es ist leider nicht möglich, nachträglich die Far¬ 
ben zu ändern. 


WINDOWO { WINDOWÖ } Window-Daten holen 


WINDOW(Nummer) 

WINDOW(Adresse) 

Unter GFA-BASIC verwalten wir die Windows mit Nummern. 
Es ist viel einfacher, alle Funktionen mit einer Nummer aufzu¬ 
rufen, als sich die Position im Speicher zu merken, unter der die 
Window-Daten abgespeichert sind. Allerdings bleibt es nicht aus, 
daß man auch diese Adresse erfahren muß, um z.B. eine Be¬ 
triebssystem-interne Funktion aufzurufen, die nur mit der 
Adresse arbeitet. 
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Mit WINDOW(Nummer) können wir einer Variablen die Adresse 
zuweisen, unter der die Window-Daten im Speicher stehen. 

Umgekehrt läßt sich auch die Nummer eines Windows ermitteln, 
das von GFA-BASIC geöffnet wurde! 


14.2 Die Screen-Befehle des GFA-BASIC 


OPENS { OPENS } Screen Öffnen 


OPENS Nummer [, Xpos, Ypos, Breite, Höhe, BKPIanes, Modus] 

Dieser Befehl öffnet einen neuen Screen. Dafür können Indizes 
von 0 bis 15 (wie auch bei den Windows) verwendet werden, 
voreingestellt ist unter der Nummer 0 der Workbench-Screen zu 
verstehen, auf der auch alle Ausgabe-Windows geöffnet werden, 
wenn man nichts anderes angibt. 

Beim öffnen eines neuen Screens muß man einige Parameter an¬ 
geben, die die Eigenschaften des neuen Screens bestimmen. Wir 
haben es dabei quasi mit einem neuen Bildschirm zu tun, der 
genauso wie der Workbench-Screen gehandhabt werden kann. 

Dabei kann die X- und Y-Position der Screen auf dem wirk¬ 
lichen Bildschirm bestimmt werden. Allerdings interessiert In¬ 
tuition momentan nur der Y-Wert, weil bei dem jetzigen 
Grafik-Chip eine X-Verschiebung noch nicht möglich ist. Aus 
Kompatibilitätsgründen wurde aber der X-Wert implementiert. 
Sie sollten ihn immer auf 0 setzen, damit später keine Über¬ 
raschungen zu erwarten sind. 

Weiterhin ist die Breite und die Höhe für den Screen sehr wich¬ 
tig. Sie entscheiden, wie viele Punkte maximal abgebildet wer¬ 
den können. Abhängig vom Grafikspeicher kann ein Screen bis 
zu 1024 x 1024 Bildpunkte groß sein, wenn genügend Grafik- 
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Speicher zur Verfügung steht (man benötigt schon für eine Bit- 
Plan 131072 Bytes, was 128 KByte entspricht). Es hängt dann 
allerdings vom Grafik-Modus ab, wie viele dieser Punkte des 
Screens wirklich innerhalb des Ausschnitts dargestellt werden 
können, der auf dem Bildschirm sichtbar ist. Dieser Bereich be¬ 
schränkt sich nämlich auf 640 x 256 Punkte, zu denen man noch 
einige wenige rechnen kann, die durch den Rand verloren 
gehen, in dem aber sowieso keine scharfe Abbildung möglich ist 
(das liegt aber nicht am Amiga, sondern am Monitor). 

Zu den Auflösungen sehen Sie am Ende der Beschreibung eine 
Tabelle, aus der Sie die Werte entnehmen können. So wichtig 
wie die Auflösung ist auch die Anzahl der BitPlanes. Oben 
wurde schon darauf verwiesen, daß jede BitPlane Speicher in 
Anspruch nimmt. In diesem Speicher werden die gesetzten oder 
nicht gesetzten Punkte der Grafik verwaltet. Jedem Punkt ist ein 
Bit zugeordnet. Bei gesetztem Bit sehen wir den Punkt, und bei 
gelöschtem Bit sieht man nur die Hintergrundfarbe. 

Zur Darstellung von mehr Farben als nur diesen beiden kombi¬ 
niert man mehrere BitPlanes und definiert einen Code, unter 
dem sich die richtige Farbe berechnen läßt. Allgemein steht die 
Anzahl der Farben in folgender Abhängigkeit zu den BitPlanes: 

Farben = 2'BitPtanes 


Dabei gilt diese Tabelle: 


BitPlanes Farben 


0 1 (die Hintergrundfarbe und mehr nicht!) 

1 2 

2 4 

3 8 

4 16 

5 32 

Der Amiga ist nicht in der Lage, mehr als 6 BitPlanes zu ver¬ 
arbeiten. Obwohl man alle 4096 verschiedenen Farben darstellen 
kann, wird dabei immer noch mit 6 BitPlanes gearbeitet. Aller¬ 
dings ist das Verfahren zur Farbkodierung dann anders gewählt. 
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Hier kommt als Abschluß noch die Tabelle der Screen-Modi und 
eine Auflösungstabelle, anhand derer Sie ablesen können, wie¬ 
viele Grafikpunkte auf dem Bildschirm bei welchem Modus zu 
sehen sind: 


Die Screen-Modi 

dezimal hexadezimal Modus 
2 *0002 GENL0CK_VIDE0 
4 $0004 INTERLACE 
128 *0080 EXTRA HALFBRITE 
2048 *0800 HOLD_AND_MOOIFY 
16384 *4000 SPRITES " 

32768 $8000 HI RES 


Die verschiedenen Auflösungsstufen 


Bezeichnung 

hexadezimal 

Auflösung max. 

Bitplanes 

LORES 

$0000 

320 x 256 

5 

HIRES 

$8000 

640 x 256 

4 

INTERLACE 

$0004 

320 x 512 

5 

HIRESINTERLACE 

$8004 

640 x 512 

4 

EXTRA_HALFBRITE 

$0080 

320 x 256 

6 

EXTRA_HALFBRITE LACE 

$0084 

320 x 512 

6 

HOLD_AND_MODIFY 

$0800 

320 x 256 

6 

HOLDANDMODIFY 

$0804 

320 x 512 

6 

CLOSES { CLOSES } 

Screen schließen 


CLOSES Nummer 

Mit diesem einfachen Kommando wird ein geöffneter Screen 
wieder geschlossen. Dabei werden auch alle auf dem Screen be¬ 
findlichen Windows gleich mit geschlossen, so daß man sich 
darum nicht kümmern muß. 
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FRONTS { FRONTS } Screen in den Vordergrund 


FRONTS Nummer 

FRONTS holt den mit Nummer angegebenen Screen in den Vor¬ 
dergrund. Dabei wird die gleiche Funktion ausgeführt, wie es 
auch der Fall ist, wenn man mit der Maus das entsprechende 
Depth-Arrangement-Gadget des Screens betätigt. Nur hier er¬ 
folgt die Kontrolle über das Programm. 


BACKS { BACKS } Screen in den Hintergrund 


BACKS Nummer 

BACKS legt den über die Nummer identifizierten Screen in den 
Hintergrund, so daß der zweite oberste Screen sichtbar wird. 
Dabei wird die gleiche Funktion ausgeführt, wie es auch der 
Fall ist, wenn man mit der Maus das entsprechende Depth-Ar- 
rangement-Gadget des Screens betätigt. Nur hier erfolgt die 
Kontrolle über das Programm. 
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MOVES { MOVES } Screen verschieben 


MOVES Nummer, Xpos, Ypos 

Bewegt den angegebenen Screen zur absoluten X-, Y-Position. 
Man kann damit einen im Hintergrund liegenden Screen teil¬ 
weise sichtbar machen, und so unterschiedliche Auflösungen 
gleichzeitig auf dem Bildschirm darstellen. Das eignet sich be¬ 
sonders für gemischte Text- und Grafik-Ausgabe. 


TITLES { TITLES } Screen-Titel setzen 


TITLES Nummer, "Titel" 

Wie auch jedes Window einen Titel in seiner Kopf-Zeile be¬ 
inhaltet, so haben auch Screens die Möglichkeit, in der Titel- 
Zeile einen Text aufzunehmen. 

Mit diesem Befehl wird der Text definiert, der in der obersten 
Zeile der Screen mit der angegebenen Nummer steht. Diesen 
Titel bezeichnet man als Default-Title, weil er nur dann ange¬ 
zeigt wird, wenn kein Fenster innerhalb der Screen aktiv ist. 
Jedes Fenster hat nämlich zusätzlich zum Fenster-Titel auch 
noch einen Text, der bei Aktivierung in der Screen-Zeile ausge¬ 
geben werden soll. Nur wenn dieser zweite Text fehlt, benutzt 
die Screen den Default-Title. 
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SETSPEN { SETSPEN } Scr«n-Farb«n wählen 


SETSPEN LinienStift, FlächenStift 

Genau wie auch bei den Windows werden zum Zeichnen der 
Screen-Elemente wie Titelleiste und Gadgets zwei Farbstifte be¬ 
nutzt. Diese sind auf die Werte 1 und 0 eingestellt, können aber 
beliebig (je nach Auflösung) gewählt werden. Dazu dient dieser 
Befehl, der VOR dem öffnen des Screens aufgerufen werden 
muß, da sonst die Einstellungen nicht bekannt sind. 


SCREENQ { SCREENQ } Screen-Daten holen 


SCREEN (Nummer) 

SCREEN(Adresse) 

Für die interne Programmierung der Intuition-Elemente ist es 
notwendig, wenn man die Adresse kennt, ab der die Screen- 
Daten abgespeichert werden. Diese läßt sich mit der ersten 
Funktion ermitteln, die die entsprechende Speicherstelle zurück¬ 
liefert. 

Kennt man nur die Speicherstelle und benötigt für die GFA- 
Befehle die Screen- Nummer, so kann diese mit der zweiten 
Variante der Funktion ermittelt werden. 
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15. Menüprogrammierung mit BASIC- 
Befehlen 


MENU Menü Menüpunkt-Attribute bestimmen 


MENU Menüpunkt,Attribut 

Mit diesem Befehl kann bestimmt werden, ob ein Menüpunkt 
ghosted (inaktiv) dargestellt werden soll oder klar (aktiv). 
Außerdem können vor einem Menüpunkt-Text Häkchen 
(Checkmarks) gesetzt werden. Diese kennzeichnen üblicherweise, 
daß die Funktion, die durch den gewählten Menüpunkt reprä¬ 
sentiert wird, z.Zt. aktiv ist. 

Dazu wird dem Befehl in Menüpunkt der Index des zu markie¬ 
renden bzw. des zu desaktivierenden Menüpunktes sowie nach 
einem Komma das gewünschte Attribut übergeben. 


Attribut: 

64 Checkmark löschen 
256 Checkmark setzen (abhaken) 

16 Menüpunkt desaktivieren (hell) 
64 Menüpunkt aktivieren 


Bei MENU MenütextS sind für den Fall, daß Checkmarks 
(Häkchen) gesetzt werden sollen, vor der jeweiligen Menüpunkt- 
Bezeichnung zwei Leerzeichen vorzusehen. 
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MEN U Text Menupunkt mit neuem Text versehen 


MENU Menüpunkt,Text 

Sollte es der Fall sein, daß einer der schon über das Feld defi¬ 
nierten Menüpunkte nicht mehr den richtigen Text besitzt, weil 
Sie z.B. eine Funktion entfernt, erweitert oder verändert haben, 
dann ist diese Funktion genau die richtige! 

Mit Menüpunkt geben Sie die Nummer des gewünschten Menü¬ 
punktes an, und in Text wird ein String übergeben, der als 
neuer Text gesetzt werden soll. Beachten Sie dabei, daß dieser 
neue Text auf keinen Fall länger sein darf, als es der erste war. 
Denn GFA-BASIC verwendet für den Menüpunkt die alte Text- 
Struktur und schreibt nur den neuen Text dort hinein. Deshalb 
ist kein zusätzlicher Speicher für längere Texte reserviert. 


MENU KEY Menüpunkt mit Shortcut versehen 


MENU KEY Menüpunkt,ASCIIcode 

Wie Sie wissen, kann jeder Menüpunkt auch über eine Tasten¬ 
kombination aufgerufen werden. Zusammen mit der rechten 
Amiga-Taste kann jede andere Taste mit dem Aufruf eines 
Menüpunktes belegt werden. 

Dazu wird dem Befehl zur Nummer des Menüpunktes noch der 
ASCII-Wert der zu drückenden Taste übergeben. Zur Verdeut¬ 
lichung dieser Möglichkeit für den Anwender erscheint dann im 
Menü die Amiga-Taste als Symbol zusammen mit dem Zeichen. 

Wenn Sie dies beabsichtigen, dann sollten Sie aber gleich beim 
Menütext vier oder mehr Zeichen freihalten, damit das Symbol 
zusammen mit dem Tastenwert nicht in den Menütext hinein¬ 
ragt, was einigen grafischen Müll erzeugt. 
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MENU Menütext$0 PulIDovm-Menü erstellen 


MENU ArraySO 

Mit diesem Befehl wird dem Interpreter gesagt, wo er im 
Speicher die einzelnen Menüeinträge findet. Sie übergeben ihm 
dazu den Namen eines eindimensionalen String-Arrays, das die 
Menütexte enthält. Dieses Array muß so viele Elemente auf¬ 
weisen, wie insgesamt an Menüpunkt-Texten zugewiesen werden 
sollen. Hierbei ist zu beachten, daß das erste Menü (Desktop- 
Menü für Accessories) etwa folgenden Aufbau haben sollte (der 
sich an den ST-Standard anlehnt, aber deshalb nicht unbedingt 
schlecht ist): 

1. String = Menütitel (evtl. Programmname). 

2. String = Beliebige Überschrift (üblich: Programm-Info). 
Unter diesem Menüpunkt können Sie eine beliebige Pro¬ 
gramm-Funktion einordnen. Da das aber der einzige ver¬ 
wendbare Menüpunkt in diesem ersten Menü ist, wird er 
normalerweise für die Ausgabe einer allgemeinen Pro¬ 
gramm-Information (z.B. Copyright) verwendet. 

3. String = Reihe von Minuszeichen (bzw. Bindestrichen). Die 
Anzahl der Striche bestimmt hier die Menübreite. Da in 
diesem Menü grundsätzlich die evtl, vorhandenen Desk- 
Accessories aufgeführt werden, sollten Sie hier die Länge 
des längsten Accessory-Titels berücksichtigen. Dieser 
Strich unterteilt ein Menü in verschiedene Funktions¬ 
blöcke. 

4. String = ab hier folgen die einzelnen Funktionen des ersten 
Menüs, die allgemein mit Service-Aufgaben belegt sein 
sollten. Bis wir dann zu den letzten Menü-Punkten kom¬ 


men: 
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10. String = Null-String. Dieser Null-String gilt als Abschluß 
für jede einzelne Menüreihe. 

An diesen ersten Menü-Aufbau werden nun die von Ihnen frei 
benennbaren weiteren Menüs angehängt. Diese sind so aufge- 
baut, daß sich an den Menü-Titel (der String, der immer in der 
Menüleiste sichtbar bleibt) die einzelnen Menüpunkt-Bezeich¬ 
nungen anschließen. Dabei muß auch hier, wie beim ersten 
Menü, ein Null-String ("") den Abschluß zu jedem einzelnen 
Menü bilden. 

Nachdem alle Menüeinträge gelesen wurden, muß dem gesamten 
Menüaufbau noch ein Null-String als Endmarkierung angehängt 
werden. Wollen Sie, daß bei Anwahl eines Menüpunktes dieser 
mit einem Häkchen (Checkmark siehe MENU Menü¬ 
punkt,Attribut) versehen wird, sollten Sie vor dem Text des ge¬ 
wünschten Menüpunktes zwei Leerzeichen vorsehen, damit 
dieses Checkmark genügend Platz hat. 

Außerdem ist es möglich, einen Menüpunkt-Text ghosted (ver¬ 
schleiert = inaktiv) darzustellen. Dazu muß das erste Zeichen des 
Text-Strings ein Minuszeichen (bzw. Bindestrich: -) sein. Nach¬ 
dem das Menü eingelesen wurde, wird es durch diesen Befehl 
gleichzeitig aktiviert. 

Beispiel: 

DIM array*(40) 

REPEAT 

READ arrayS(iX) 

PRINT array$(iX) 

INC iX 

UNTIL array*(iX-1)="XXX" 
array$(iX-1)="" 

DATA DESKTI TEL.Menüpunkt 

DATA. 

DATA Accl,Acc2,Acc3,Acc4,Acc5,Acc6, 

DATA MENÜ1, Punktl, Punkt2, Punkt3, 

DATA MENÜ2, Punktl, Punkt2, Punkt3, 

DATA MENÜ3, Punktl, Punkt2, Punkt3, 

DATA MENÜ4, Punktl, Punkt2, Punkt3, 

DATA XXX 
MENU arraySO 
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MENU KILL 


Meniizeiie löschen 


MENU KILL 

MENU KILL desaktiviert das PullDown-Menü. Es kann keine 
Auswahl mehr vorgenommen werden, weil die gesamte Menü¬ 
leiste vom Window entfernt wurde. Auf den Inhalt des Menü- 
text-Arrays hat dieser Befehl keinen Einfluß. Das desaktivierte 
Menü kann also jederzeit durch MENU menütextS wieder in¬ 
stalliert werden. 





392 


Das große GFA-BASIC-Buch 



Ereignis-Überwachung mit BASIC-Befehlen 


393 


16. Ereignis-Überwachung mit BASIC- 
Befehlen 


MENÜ (Index) Event-Puffer (Menü- und Fensterverwaltung) 


Var=MENU (Index) 

Hinter dieser Funktion verbirgt sich ein Datenfeld (Event-Buf¬ 
fer = Integerfeld), in dem permanent verschiedene Daten zu ak¬ 
tuellen Intuition-Ereignissen eingetragen werden. 

Index steht für das jeweils interessante Feldelement. Dabei kann 
der Bereich von MENU(O) bis MENU(IO) abgefragt werden, in 
dem wir alle nötigen Daten zur Ereignis-Verwaltung finden. 
Sehen Sie in der ersten Tabelle die Funktion der jeweiligen 
Feld-Einträge, die dann noch speziell in Abhängigkeit von dem 
Nachrichtentyp betrachtet werden: 


Die Inhalte von MENU(Index): 

MENU(O) Menu Nummer des ausgewählten Menü- 

Punktes innerhalb des String-Arrays 
der Menüs, das bei der Definition 
übergeben wurde. 

MENU(l) Class Enthält die IDCMP-Flags, die diese 

Nachricht ausgelöst haben. Je nach 
Flaggen-Typ müssen die nächsten drei 
Felder unterschiedlich ausgewertet 
werden. 
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MENU(2) Code 

MENU(3) Qualifier 

MENU(4) IAddress 

MENU(5) MouseX 

MENU(6) MouseY 

MENU(7) Seconds 
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Dieser Wert enthält in Abhängigkeit 
der Message-Class eine Zahl, die z.B. 
bei einer Menü-Auswahl die Nummer 
des ausgewählten Menü-Punktes bein¬ 
haltet. 

ln dieser Variablen sind die Qualifier, 
also die Sondertasten wie SHIFT, 
CTRL etc. vermerkt. Das ist bei der 
Abfrage der Tastatur von ent¬ 
scheidender Bedeutung. 

Der hier abgelegte Wert ist ein Zeiger 
(eine Speicheradresse) auf das Intui¬ 
tion-Objekt, das für die Nachricht 
verantwortlich war. Das kann ein 
Gadget sein oder auch ein Window. 

Egal, welche Nachricht empfangen 
wurde, in dieser Variablen ist die re¬ 
lative X-Position des Mauspfeils zu 
finden. Sie können auch damit die 
Mausposition auswerten! 

Hier steht passend zu MENU(5) die 
Y-Position der Maus. Diese wird rela¬ 
tiv zur oberen linken Ecke des Win¬ 
dows berechnet. Befindet sich das 
Window also nicht ganz in der oberen 
Ecke des Screens, kann es bei beiden 
Koordinaten-Teilen negative Werte 
geben. 

So, wie die Position der Maus zum 
Zeitpunkt der ausgelösten Nachricht 
festgehalten wird, speichert Intuition, 
von dem diese Nachricht stammt, auch 
die System-Zeit, damit bei einer ver¬ 
zögerten Auswertung der Zeitpunkt 
genau bekannt ist 
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MENU(9) Micros Im Gegensatz zu MENU(7) stehen hier 

nicht Sekunden, sondern die Mikro¬ 
sekunden. 

MENU(IO) WindowAddress 

Hier steht immer ein Zeiger auf das 
Window, von dem die Nachricht 
stammt. 


Ein Menü abfragen: 

Um die Auswahl eines Menüs abzufragen, empfiehlt sich fol¬ 
gendes Vorgehen, das neben der hier besprochenen Funktion 
noch weitere GFA-BASIC-Befehle benutzt. Bitte lesen Sie auch 
dort die Informationen nach. 

Im Hauptprogramm wird nach der Definition der Menü-Leiste 
ein Unterprogramm definiert, in dem die Auswertung statt¬ 
findet. Das sieht so aus: 

ON MENU GOSUB Auswertung 

Die Hauptprogramm Schleife kann im einfachsten Fall sogar so 
aussehen: 

REPEAT 

SLEEP 

UNTIL Loop=FALSE 

Damit wird solange auf eine Nachricht gewartet, bis eine globale 
Variable (hier Loop) von irgendeiner Unterroutine auf FALSE 
gesetzt wird. Sie können aber natürlich auch etwas mehr vom 
Programm abarbeiten lassen, bis die erste Menü-Nachricht ein¬ 
trifft. 

Die Unterroutine selbst kann mit Hilfe der MENU()-Funktion 
die jeweilige Nummer des augewählten Menüpunktes ermitteln 
und entsprechend zu einer weiteren Routine verzweigen, die 
eine gewünschte Aufgabe erfüllt oder Prozedur ausführt. 
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PR0CEDUR Auswertung 

MenuX=MENU(0) 1 Oie Menü-Nummer wird der Variablen übergeben 

MENU KILL 1 damit keine weitere Auswahl für den Benutzer möglich 
ist 

IF MenuX=1 THEN GOSUB Speichern 

IF MenuX=2 THEN GOSUB Laden 

MENU Menu.LeisteSO 
RETURN 

Es gibt natürlich noch andere und sehr verschiedene Nachrich¬ 
ten, die alle über die MENU()-Funktion abgefragt werden kön¬ 
nen. So lassen sich alle IDCMP-Flags des Windows nutzen. Diese 
Flaggen geben Sie bei der Definition eines neuen Windows an. 
Dadurch sagen Sie dem verwaltenden Intuition-System, bei 
welchen Ereignissen Sie eine Information wünschen. Die Zahlen, 
die von MENU(l) dabei geliefert werden, entsprechen exakt 
denen, die auch als Flags bei der Window-Definition angegeben 
werden müssen. 


Menu-Nachrichten: 

Neben der einfachen Abfrage über MENU(O), wo sich der 
Menü-Index befindet, gibt es natürlich eine spezielle Intuition- 
Nachricht, die die Auswahl eines Menüpunktes genau beschreibt. 
Allerdings wird hier eine genauere Auswertung vom Benutzer 
verlangt. 

MENU(l) = 256 ’ Es wurde ein Menü-Punkt der bestehenden 
Menüleiste ausgewählt 

1 in MENU(2) steht die genaue Nummer des 
Menüpunktes in einem Bitmuster ver¬ 
schlüsselt. Sie können dabei genau auslesen, 
in welchem Menü welcher Menüpunkt und 
welcher Untermenüpunkt angewählt wurde. 
Verwenden Sie dazu die folgende Dekodie¬ 
rung: MenüNummer = MENU(2) AND 31, 
MenüPunkt = SHR(MENU(2), 5) AND 63, 
UnterMenüPunkt = SHR(MENU(2), 11) 
AND 31 
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Window-Nachrichten: 


MENU(l) = 1 

Das Size-Gadget des Window wurde 
betätigt 


in MENU(IO) findet man jetzt die 
Intuition-Adresse des Fensters 

MENU(l) = 2 

Die Größe des Fensters wurde ver¬ 
ändert 


in MENU(IO) steht auch hier wieder 
die Adresse der Window-Struktur 
(Sie kommen mit WINDOW(Adresse) 
an die GFA-BASIC-Nummer, unter 
der das Window verwaltet wird) 

MENU(l) = 4 

Eine Aufforderung an das Pro¬ 
gramm, den Grafik-Inhalt (auch 
Texte werden als Grafik behandelt) 
des Windows wieder herzustellen, 
weil er durch vorhergehende Über¬ 
lagerung zerstört wurde 


in MENU(IO) steht die Adresse des 
Windows 

MENU(l) = 512 

Das Close-Gadget des Windows 
wurde betätigt 


in MENU(IO) steht die Adresse der 
Window-Struktur 

MENU(l) = 8192 

Das Fenster ist nicht in der Lage, die 
über die rechte Maustaste ange¬ 
forderte Menüleiste auszugeben 


in MENU(IO) steht die Adresse des 
Windows 
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MENU(l) = 262144 ’ Ein Fenster wurde über einen Maus¬ 

klick aktiviert 

’ die Adresse des Fensters steht in 

MENU(IO) und kann mit 

WINDOW( Adresse) in die GFA- 
Nummer des Windows umgewandelt 
werden 

MENU(l) = 524288 ’ Ein Fenster wurde desaktiviert, weil 

ein anderes aktiviert wurde oder der 
Benutzer mit der Maus auf die 
Screen geklickt hat 

’ die Adresse des Fensters steht in 

MENU(IO) und kann mit 

WINDOW(Adresse) in die GFA- 
Nummer des Windows umgewandelt 
werden 

Maus-Nachrichten: 

MENU(l) = 8 ’ Eine Maustaste wurde betätigt (Sie 

erhalten nur Nachrichten von der 
rechten Maustaste, wenn innerhalb 
dieses Fensters die Menü-Steuerung 
ausgeschaltet wurde und die rechte 
Maustaste wie die linke gehandhabt 
wird) 

’ in MENU(2) steht der Status der 
Maustasten, aus dem sich auslesen 
läßt, welche Taste gedrückt oder los¬ 
gelassen wurde. So steht der Wert 104 
für das Drücken der linken 
Maustaste und die Zahl 232 für die 
rechte. Es ist jeweils 1 dazu zuad¬ 
dieren, wenn die Taste losgelassen 
wurde. 
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MENU(l) =16 * Die Maus wurde bewegt 

’ in MENU(5) und MENU(6) lassen 

sich die absoluten X- und Y-Koor- 
dinaten relativ zum Fenster auslesen. 

MENU(l) = 1048576 ’ Die Maus wurde bewegt 

* in MENU(5) und MENU(6) lassen 

sich die relativen X- und Y-Koordi- 
natenveränderungen zur letzten 
Position innerhalb des Fensters aus¬ 
lesen. 

Gadget-Nachrichten: 

MENU(l) = 32 ’ Ein Gadget wurde gedrückt 

’ in MENU(4) finden Sie den Zeiger 

auf die Gadget-Struktur (die Spei¬ 
cheradresse, ab der Gadget-Daten 
abgelegt sind) und in MENU(10) die 
Window-Adresse des Windows, in 
dem sich das Gadget befindet. 

MENU(l) = 64 ’ Ein Gadget wurde wieder losgelassen 

’ auch hier steht in MENU(4) die 

Adresse der Gadget-Struktur und in 
MENU(10) die der Window-Struktur 

Requester-Nachrichten: 

MENU(l) = 128 ’ Innerhalb des Fensters ist ein 

Requester geöffnet worden. 



400 


MENU(l) = 2048 


MENU(l) = 4096 


Tastatur-Nachrichten: 
MENU(l) = 1024 


MENU(l) = 2097152 ’ 
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MENU(4) enthält die Adresse der 
Requester-Struktur und MENU(10) 
die des betroffenen Windows 

Es ist nicht möglich, den Requester 
im Fenster darzustellen 

in MENU(10) steht die Adresse des 
Fensters 

Der letzte im Fenster geöffnete 
Requester wurde gerade geschlossen 
(das Window ist wieder zur Ein- und 
Ausgabe freigegeben) 

in MENU(IO) steht die Adresse des 
Fensters 


Eine Taste wurde betätigt 

in MENU(2) ist der Tastatur-Code 
der gedrückten Taste abgelegt, zu 
dem noch der entsprechende Quali- 
fier kommt, der den Status der 
Tastatur anzeigt. Er steht in 
MENU(3). 

Eine Taste wurde betätigt 

in MENU(2) steht der ASCII-Code 
der betätigten Taste. Es erfolgte also 
schon eine Auswertung anhand der 
Tastaturtabelle. 
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Andere Nachrichten: 

MENU(l) = 16384 

Von irgendeinem anderen Programm 
wurden die Grundeinstellungen des 
Systems verändert (die Preferences- 
Daten sind neu eingestellt worden) 

MENU(l) = 32768 

in irgendein Laufwerk wurde eine 
Diskette neu eingelegt 

MENU(l) = 65536 

aus irgendeinem Laufwerk wurde die 
Diskette entfernt 

MENU(l) = 131072 

Die Workbench schickt diese Nach¬ 
richt, wenn auf ihr Veränderungen 
vorgenommen wurden 

MENU(l) = 4194303 ’ 

Bei Anforderung von Zeit-Nach¬ 
richten erhält man über jeden Intui- 
Tick eine Nachricht. Dies geschieht 
alle l/10tel Sekunde! 


ON MENU Verzweigung zur Ereignisfeststellung 


ON MENU 
ON MENU [Zeit] 

Dieser Befehl wartet darauf, daß eine Nachricht eingetroffen ist 
und verzweigt sogleich zu der definierten Stelle im Programm. 
Er sollte innerhalb einer Schleife durchlaufen werden, denn nur 
bei einer permanenten Abfrage ist es möglich, keine Nachricht 
zu übersehen. Wird der Befehl nicht eingesetzt, kann auch keine 
der ON MENU...GOSUB-Prozeduren angesprungen werden. 

Es kann optional der Parameter Zeit eingesetzt werden. Dieser 
Wert gibt in lOOOstel Sekunden an, nach welcher Zeitspanne ON 
MENU (siehe EVNT_MULTI) spätestens abgeschlossen werden 
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soll und die Kontrolle wieder an BASIC zurückgegeben wird. 
Bei ausreichender Zeitvorgabe hat so das Input-Device Zeit, ggf. 
das Loslassen des Mausknopfes zu registrieren. Dazu ist aller¬ 
dings unbedingt erforderlich, ON MENU BUTTON GOSUB 
einzusetzen, da sonst der Zeitwert unberücksichtigt bleibt. 

Vergessen Sie nicht, diesen Befehl auch innerhalb von internen 
Warteschleifen anzuführen (z.B. REPEAT...UNTIL MOUSEK), 
da sonst solange kein Ereignis bearbeitet werden kann, wie sich 
das Programm in dieser Warteschleife befindet. 


auf eine Nachricht warten 


SLEEP 


SLEEP 

Der SLEEP-Befehl ist eine Vereinfachung des ON- MENU- 
Kommandos. Er setzt einfach für die Zeit-Variable den Wert 1 
ein und wartet auf irgendeine Nachricht, die über den Nach¬ 
richten-Kanal des Intuition geschickt wurde. 


ON MENU GOSUB Procedure-Bestlmmung (MenU-Event) 


ON MENU GOSUB Prozedurname 

Prozedurname gibt die Prozedur an, zu der verzweigt werden 
soll, wenn ein Pull-Down-Menüpunkt (Menüeintrag) angeklickt 
wurde. Über MENU(O) kann dann dort der gewählte Menüpunkt 
ermittelt und dementsprechend reagiert werden. 

Existiert Prozedurname nicht, wird die Menü-Überwachung ab¬ 
geschaltet. 
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ÖN MENU BUTTON GOSUB Procedure-Bestimmung 


ON MENU BUTTON GOSUB Prozedurname 

(Mausknopf-Event) Durch diesen Befehl kann eine Prozedur 
bestimmt werden, zu der verzweigt werden soll, sobald eine oder 
mehrere Maustasten ein- oder mehrmals gedrückt oder auch 
nicht gedrückt wurden. 

Innerhalb der Routine muß dann eine Auswertung über die 
MENU()-Funktion geschehen, in der ja ausgelesen werden kann, 
welche Taste wann wie oft gedrückt wurde. 


ON MENU KEY GOSUB Proc.-Bestimmung (Tastatur-Event) 


ON MENU KEY GOSUB Prozedurname 

Die Tastatur wird überwacht und bei eingetretenem Ereignis 
(ON MENU nicht vergessen) zu Prozedurname verzweigt, wo 
man dann durch MENU(14) den Code der gedrückten Taste er¬ 
fahren kann. 

Existiert Prozedurname nicht, wird die Tastatur-Überwachung 
abgeschaltet. 
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Anhang A: ASCII-Tabelle 


e 

1CTRLM0] 


64 

9 

128 

□ 


192 

A 

1 

ICTRLl-tAl 


65 

A 

129 

□ 

(Fl) 

193 

A 

2 

1CTRL1-1B1 


66 

B 

130 

Q 

(F2> 

194 

A 

3 

t CTRL 1-C C J 

(Break) 

67 

C 

131 

D 

(F3> 

195 

A 

4 

C CTRL 3 — t D1 


68 

D 

132 

D 

(F4> 

196 

Ä 

5 

(CTRL 1-1 El 


69 

E 

133 

□ 

(F5> 

197 

A 

6 

(CTRL 1 — lF1 


70 

F 

134 

Q 

(F6> 

198 

i 

7 

t CTRL 1 — [G1 

(Beep) 

71 

G 

135 

□ 

(F7) 

199 

C 

8 

[CTRL 1 — t H1 

(BACKSPACE) 

72 

H 

136 

□ 

<F8> 

200 

t 

9 

rcTRLi-m 

(TAB) 

73 

I 

137 

□ 

(F9> 

281 

t 

10 

C CTRL 1 — t J1 

(Line feed) 

74 

J 

138 

G 

(Fl 8 > 

282 

t 

n 

t CTRL]-1K1 


75 

K 

139 

□ 

(HELP) 

203 

E 

12 

[CTRL 1—1L1 

(Löschen) 

76 

L 

140 

□ 


284 

i 

13 

t CTRL 1 — [ M1 

(RETURN) 

77 

M 

141 

n 


285 

i 

14 

I CTRL 1 — ( N1 


78 

N 

142 

□ 


206 

i 

15 

[ CTRL 1 — 101 


79 

0 

143 

D 


287 

X 

16 

[ CTRL 1 — t P1 


80 

P 

144 

□ 


288 

D 

17 

[CTRL 1 — IQ] 


81 

Q 

145 

□ 


209 

N 

18 

t CTRL 1-IR) 


82 

R 

146 

G 


218 

6 

19 

[ CTRL 1 —[ S1 


83 

S 

147 

0 


211 

d 

28 

tCTRLl-ITl 


84 

T 

148 

0 


212 

« 

21 

C CTRL 1 — [ U1 


85 

U 

149 

G 


213 

8 

22 

[ CTRL 1-t V1 


86 

V 

150 

0 


214 

ö 

23 

[ CTRL 1 — IH1 


87 

H 

151 

Q 


215 

D 

24 

[ CTRL 1-IX1 


88 

X 

152 

0 


216 

0 

25 

[ CTRL 1 — t Y1 


89 

Y 

153 

G 


217 

ii 

26 

(CTRLMZ1 


98 

Z 

154 

G 


218 

ü 

27 

[CTRL]—I ( 1 

(ESC) 

91 

1 

155 

Q 


219 

0 

28 

(CTRL1-IM 

(hoch) 

92 

\ 

156 

G 


228 

Ü 

29 

ICTRLl-t11 

(runter) 

93 

] 

157 

G 


221 


30 

[ CTRL ]-I A ] 

(rechts) 

94 

A 

158 

G 


222 

!> 

31 

[ CTRL 1 — ( _ 1 

(links) 

95 


159 

G 


223 

(! 

32 



96 

l 

168 



224 

1 

33 

t 


97 

a 

161 

* 


225 

i 

34 



98 

b 

162 

C 


226 

i 

35 

H 


99 

c 

163 

t 


227 

i 

36 

i 


100 

d 

164 

ü 


228 

ä 

37 

V. 


101 

e 

165 

Y 


229 

3 

38 

a 


102 

r 

166 

1 


238 

9 

39 

c 


103 

9 

167 

«i 


231 

c 

48 


104 

h 

168 



232 

8 

41 

) 


185 

i 

169 

9 


233 

t 

42 

ff 


186 

j 

170 

a 


234 

t 

43 

♦ 


187 

k 

171 

« 


235 

e 

44 

, 


108 

1 

172 

** 


236 

i 

i 

45 

- 


109 

M 

173 

- 


237 

46 

/ 


118 

n 

174 

e 


238 

i 

47 


111 

0 

175 



239 

i 

48 

8 


112 

P 

176 

0 


248 

i 

49 

1 


113 

q 

177 

♦ 


241 

n 

50 

2 


114 

r 

178 

i 


242 

8 

51 

3 


115 

s 

179 

3 


243 

d 

52 

4 


116 

t 

180 

/ 


244 

A 

53 

5 


117 

u 

181 

u 


245 

ff 

54 

6 


118 

V 

182 

i 


246 

0 

55 

7 


119 

¥ 

183 

• 


247 

Q 

56 

8 


128 

X 

184 



248 

(T 

57 

9 


121 

y 

185 

i 


249 

a 

58 

j 


122 

z 

186 

0 


258 

i 

59 

i 

< 


123 

< 

187 

» 


251 

0 

66 


124 

i 

188 

X 


252 

ü 

61 

z 


125 

) 

189 

X 


253 


62 

> 


126 


190 

X 


254 

b 

63 



127 

5 

191 

i 


255 

y 
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Anhang B: Fehlermeldungen 
System-Fehler 

-54 Objekt wird schon benutzt | Lock 

-53 Objekt existiert schon 

-52 Verzeichnis nicht gefunden 

-51 Objekt nicht gefunden 

-50 Ungültiges Fenster 

-49 Unbekannter Fehler 207 

-48 Unbekannter Fehler 208 

-47 Unbekannter PACKET REQUEST TYPE 

-46 Unerlaubter Dateiname 

-45 Unbekannter OBJECT LOCK 

-44 Objekt-Typ passt nicht 

-43 Diskette NOT VALIDATED 

-42 Diskette schreibgeschützt 

-41 RENAME mit verschiedenen Geräten 

-40 Verzeichnis nicht leer 

-39 Unbekannter Fehler 217 

-38 Gerät nicht bereit 

-37 SEEK-Fehler 

-36 Datei-Kommentar zu umfangreich 

-35 Diskette voll 

-34 Datei ist gegen Löschen geschützt 

-33 Datei ist schreibgeschützt 

-32 Datei ist lesegeschützt 

-31 Keine DOS-Diskette 

-30 Keine Diskette im Laufwerk 

-29 Unbekannter Fehler 227 

-28 Unbekannter Fehler 228 

-27 Unbekannter Fehler 229 

-26 Unbekannter Fehler 230 

-25 Unbekannter Fehler 231 

-24 Keine weiteren Verzeichnis-Einträge 
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GFA-BASIC 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


Fehler 

Division durch Null 
Überlauf 

Zahl nicht lnteger| -2147483648 .. 2147483647 
Zahl nicht Byte|0 .. 255 
Zahl nicht Wort | -32768.. 32767 
Quadratwurzel nur für|positive Zahlen 
Logarithmen nur für | Zahlen größer Null 
Unbekannter Fehler 
Speicher voll 

Funktion oder Befehl|noch nicht möglich 

String zu lang | max. 32767 Zeichen 

Kein GFA-BASIC-3.00-Programm 

Programm zu lang | Speicher voll | NEW 

Kein GFA-BASIC-Programm|EOF - NEW 

Feld zweimal dimensioniert 

Feld nicht dimensioniert 

Feldindex zu groß 

Dim zu groß 

Falsche Anzahl Indizes 

Procedure nicht gefunden 

Label nicht gefunden 

Bei Open nur erlaubt:|"rnput "0"utput 

"R"andom|"A"ppend "U"pdate 

File schon geöffnet 

File # falsch 

File nicht geöffnet 

Falsche Eingabe, keine Zahl 

Fileende erreicht|EOF 

Zu viele Punkte für|PolyIine/Polyfill|maximal 128 

Feld muß eindimensional sein 

Anzahl Punkte größer als Feld 

Merge - Kein ASCII-File 

Merge - Zeile zu lang - Abbruch 

==> Syntax nicht korrekt|Programmabbruch 

Marke nicht definiert 

Zu wenig Data 

Data nicht numerisch 

Unbekannter Fehler 036 

Diskette voll 
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GFA-BASIC 


38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

84 


Fehler 

Befehl im Direktmodus | nicht möglich 

Programmfehler | Kein Gosub möglich 

Clear nicht möglich in|For-Next-Schleifen 

oder|Proceduren 

Cont nicht möglich 

Zu wenig Parameter 

Ausdruck zu komplex 

Funktion nicht definiert 

Zu viele Parameter 

Parameter falsch|keine Zahl 

Parameter falsch|kein String 

Open "R" - Satzlänge falsch 

Zu viele "R"-Files (max. 31) 

Kein "R"-File 
Unbekannter Fehler 051 
Fields größer als Satzlänge 
Unbekannter Fehler 053 
GET/PUT Field-String|Länge falsch 
GET/PUT Satznummer falsch 
Unbekannter Fehler 056 

Unbekannter Fehler 059 
Sprite-String-Länge falsch 
Fehler bei RESERVE 
Menu falsch 
Reserve falsch 
Pointer falsch 
Feldgröße < 256 
Kein VAR-Array 
ASIN/ACOS falsch 
Falsche VAR-Type 
ENDFUNC ohne RETURN 
Unbekannter Fehler 070 
Index/Parameter zu groß 
Object. Fehler 
Unbekannter Fehler 073 

Unbekannter Fehler 084 
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85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

99 

100 

101 

102 

103 

104 

105 

119 

120 


Fehler 


Drucker-Fehler 

Unbekannter Fehler 086 

Unbekannter Fehler 087 

Speicheranforderung fehlgeschlagen 

Sprite-Fehler 

Fehler bei Local 

Fehler bei For 

Resume (next) nicht möglich |Fatal, For oder 
Local 

Stapel-Fehler 
Unbekannter Fehler 094 

Unbekannter Fehler 099 

GFA-BASIC Version 3.00 D) Copyright 1986- 

1988|GFA Systemtechnik GmbH 

Unbekannter Fehler 101 

Unbekannter Fehler 102 

Unzureichender Speicher 

Task-Tabelle voll 

Unbekannter Fehler 105 

Unbekannter Fehler 119 
Argument-Zeile ungültigloder zu lang 
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Anhang C: DOS-Fehlermeldungen 


103 insufficient free störe 
(Der Speicherplatz reicht nicht aus) 

Ein Programm kann nicht geladen werden, weil eines oder 
mehrere Programm-Segmente nicht im Speicher untergebracht 
werden können. 


104 task table full 

(Die Prozeß-Tabelle ist voll) 

Im CLI können maximal 20 Prozesse vom AmigaDOS verarbeitet 
werden. Diese Zahl ist erreicht. 


120 argument litte invalid or too long 

(Die Parameter der Eingabezeile sind ungültig oder zu lang) 

Das AmigaDOS kann die eingegebenen Parameter nicht aus¬ 
werten, oder aber es wurden mehr als 255 Zeichen eingegeben. 


121 file is not an object module 

(Es handelt sich bei dem File nicht um ein ladbares Programm) 

Nur Programm-Files können durch einfache Eingabe des 
Namens gestartet werden. Daten-Files sind nur vom Programm 
aus ladbar. Dieser Fehler tritt auf, wenn man eine Batch-Datei 
nur über ihren Namen starten will. Das ist erst ab Version 1.3 
über das Flag S möglich. 


122 invalid resident library during load 

(Die residente Library ist während des Ladens ungültig) 

Während des Ladens einer residenten also im Speicher befind¬ 
lichen Library ist ein Fehler aufgetreten. 
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202 object in use 

(Das angesprochene File-Objekt wird gerade benutzt) 

Der Zugriff auf das Directory, File oder Programm wird nicht 
gestattet, wenn ein anderer Task darauf einen exclusiven Zugriff 
angemeldet hat. Sehen Sie dazu auch die Open()-Funktion und 
FileHandles. 


203 object already exists 
(Das Objekt existiert bereits) 

Das Erstellen des Objektes mit dem gewünschten Namen ist 
nicht möglich, weil darunter schon ein anderes Objekt existiert. 
Man kann nicht ein Verzeichnis und File mit gleichem Namen 
innerhalb eines Directories einrichten. 


204 directory not found 
(Das Verzeichnis existiert nicht) 

Das angegebene Verzeichnis existiert nicht unter diesem Pfad. 


205 object not found 

(Das Objekt konnte nicht gefunden werden) 

Der von Ihnen angegebene Name weist auf eine Datei hin, die in 
diesem Verzeichnis nicht zu finden ist. Entweder stimmt der 
Name oder der Pfad nicht. 


206 invalid Windows 

(Die Angaben für das Window liegen nicht im erlaubten Bereich) 

Beim Öffnen eines neuen Fensters müssen die Koordinaten an¬ 
gegeben werden. Diese dürfen nur in dem über den Screen defi¬ 
nierten Bereich liegen. Außerdem muß das Format eingehalten 
werden. Achten Sie auch auf die Schrägstriche! 
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209 packet requested type unknown 

(Der Typ eines Packets ist dem System nicht bekannt) 

Bei der Programmierung einer Nachrichten-Kommunikation ist 
ein Packet-Typ falsch eingegeben worden. Im System kann 
dieser Fehler nicht auftreten. Nur wenn Sie eigene Programme 
schreiben, wird hier wohl der Packet-Typ nicht stimmen oder 
aber dieses Packet an ein Gerät gesendet, das diese Nachricht 
nicht kennt. 


210 invalid stream component name 
(Der Name des Daten-Kanals ist ungültig) 

Jeder Daten-Kanal muß einen eindeutigen Namen haben, damit 
ohne Probleme die Nachricht verschickt werden kann. Dies ist 
hier nicht der Fall. 


211 invalid object lock 

(Der Lock zu einem File oder Directory ist fehlerhaft) 

Der Lock auf ein File ist nicht mehr gültig. Das kann auftreten, 
wenn ein Lese-Zugriff von einem Schreib-Zugriff übertrumpft 
wird und das File nicht mehr in der Art existiert. 


212 object not of required type 

(Das angesprochene Objekt ist nicht vom geforderten Typ) 

Es fand eine Verwechselung zwischen File und Directory statt. 


213 disk not validated 
(Die Diskette ist nicht validiert) 

Der Zugriff auf eine Diskette wird nur gestattet, wenn diese 
validiert ist. Wurde eine Diskette eingelegt und ist sie nicht 
validiert, so wird automatisch der Disk-Validator geladen und 
führt seine Prozedur durch. Konnte er nicht geladen werden, er¬ 
hält man diese Nachricht. 
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214 disk write-protected 
(Die Diskette ist schreibgeschützt) 

Ein Schreibzugriff auf diese Diskette ist nicht möglich! 


215 rename across device attempted 

(Das Umbenennen über Devices hinweg ist nicht gestattet) 

Es ist mit Rename durchaus möglich, den gesamten Pfad-Namen 
zu verändern. Dies beinhaltet aber nicht das Device, was ja 
einem Kopieren gleichkäme. 


216 directory not empty 
(Das Verzeichnis ist nicht leer) 

Zum Löschen eines Verzeichnisses muß zuerst der Inhalt selbst 
gelöscht werden, bevor das Verzeichnis vernichtet werden kann. 


218 device not mounted 

(Das Device ist nicht in das System eingebunden) 

Es wird versucht, ein Device anzusprechen, das sich nicht in der 
System-Liste befindet. 


219 seek error 

(Die Seek-Funktion kann nicht ordnungsgemäß arbeiten) 

Der Seek-Befehl hat falsche Parameter erhalten, so daß er nicht 
ordnungsgemäß arbeiten kann. 


220 comment too big 
(Der Kommentar ist zu lang) 

Ein Kommentar zu einem File oder Directory darf maximal 80 
Zeichen lang sein. Dies wurde hier überschritten. 
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221 disk full 
(Die Diskette ist voll) 

Es gibt keinen freien Speicher mehr auf der Diskette, so daß der 
Schreibvorgang abgebrochen werden mußte. 


222 file ist protected from deletion 
(Das' File ist gegen Löschen geschützt) 

Dieses File oder Directory kann nicht gelöscht werden. 


223 file ist protected from writing 
(Das File ist gegen Schreiben geschützt) 

Dieses File kann nicht überschrieben werden. 


224 file ist protected from reading 
(Das File ist gegen Lesen geschützt) 

Dieses File kann nicht gelesen werden. 


225 not a DOS disk 
(Es ist keine DOS-Diskette) 

Die im Laufwerk liegende Diskette hat kein DOS-übliches For¬ 
mat. 


226 no disk in drive 
(Keine Diskette im Laufwerk) 

Es liegt keine Diskette im angegebenen Laufwerk. 


232 no more ent ries in directory 

(Es gibt keine weiteren Einträge im Verzeichnis) 

Beim Auslesen eines Verzeichnisses mit der Funktion ExNext() 
tritt diese Meldung nach dem letzten Eintrag auf. 
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Stichwortverzeichnis 

1-Byte-Integer . 167 

1-Byte-Integer-Feldvariable .342 

1-Byte-Integervariable.342 

1- Byte-Integervariablen deklarieren . 168 

1/1 Sek.-Wartefunktion .330 

l/50Sek.-Wartefunktion . 331 

16-Bit-Integer-Zufallszahl . 219 

2 Byte ala Vorzeichen-Integer schreiben.302 

2- Byte-Integer . 167 

2-Byte-Integer-Feldvariable .342 

2-Byte-Integerformat .302 

2-Byte-Integervariable.342 

2-Byte-Integervariablen deklarieren . 169 

32-Bit-Integer-Zufallszahl .220 

4-Byte-Integer . 168 

4-Byte-Integer-Feldvariable .341 

4-Byte-Integervariable .341 

4-Byte-Integervariablen deklarieren . 169 

8 Byte in GFA-3.0-BASIC-Realformat .302 

8 Byte in GFA-S.O-Realformat schreiben . 302 

8-Byte-FlieBkommavariablen deklarieren . 169 

8-MByte-Karte . 34 

8er-Tetrade .278 

9.5 MByte . 34 

Abbruchbedingungen . 145 

Abbruchtasten . 64 

Additionsbefehl. 198 

Aktionspunkt .227 

Aktuelle Cursor-Spalte bestimmen . 85 

Aktuelle Cursor-Spalte liefern . 339 

Aktuelle Cursor-Zeile bestimmen . 88 

Aktuelle Cursor-Zeile liefern .339 

Aktuellen Zugriffspfad ermitteln. 93 

Alert-Box erstellen . 359 

Alle ASCIIs . 296 

American Standard Code for Information Interchange .273 

AND . 36, 197 

AND-Ketten .212 

AND-Modus .211 

Anzahl wandelbarer Textzeichen ermitteln . 283 
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Append . 105 

Äquivalent. 197 

Äquivalent-Funktion . 214 

Arcuscosinua-Funktion . 206 

Arcussinus-Funktion .206 

Arcustangens-Funktion .207 

Arrays. 51 

ASCII . 273 

ASCII => Textteichen . 278 

ASCII-File. 95 

ASCII-Wert . 160 

Aufnahmevariablenliste . 176 

Ausgabeformat . 81 

Ausgangsbedingungen . 141 

Auswahl-Vorgaben . 160 

Autostart .90, 98 

Backslash .362 

Backspace . 76 

Backup-File .362 

BASIC-Arbeitsspeicher .329 

BASIC-Arbeitsspeicher festlegen .309 

BASIC-Fehler .336 

BASIC-inteme Speicherreservierung .304 

Bedingte Schleife . 143, 144 

Bedingte Vertweigung tu Proteduren . 177 

Bedingter Schleifenabbruch . 145 

Bedingungen . 36 

Bedingungsabfrage . 146 

Bedingungsstellung.212 

Beliebigen Teil-String ermitteln . 192 

Benchmark-Test .334 

Benutier-Muster . 224 

Beschleunigung in X-Richtung ermitteln .271 

Beschleunigung in Y-Richtung ermitteln .271 

Betraga-Funktion . 202 

Bildpunkte. 34 

Bildschirm auf Drucker ausgeben . 128 

Bildschirm löschen .329 

Bildschirmbereich setten . 255 

Bildschirmbereich speichern .250 

Bildschirmpunkt-Farbwert ermitteln .246 

Bildschirmrechteck .249 

Bin&r-Division . 40 

Binär-String .273 

Bin&raystem . 275 
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Binary Digit . 28 

Bit-Flag-Verwaltung.384 

Bit-Müll . 258 

Bit-Nummer .213 

Bit-Plane.225 

Bit-Summe .258 

Bit-Vektor. 366 

BitPlane« . 34, 267 

Bits links rotieren .217 

Bits links verschieben .215 

Bits logisch rechts verschieben .216 

Bits rechts rotieren .217 

Bitweise Division . 39 

BOB .262 

Bogenmaß .209 

Boole-Variable(n) deklarieren . 166 

Boole-Variablen . 167 

Boolesche Algebra . 35 

Boolesche Feldvariable .341 

Boolesche Variable .341 

Break-Funktion . 179, 331 

Break-Funktion behandeln . 179 

Buchstabenumwandlung klein => groß . 196 

Button-Text .360 

C-Konventionen . 183 

C-Text .301 

Carriage Return . 71, 79, 108 

Checkmark . 387, 390 

Chip-RAM .33, 34 

CLEANUP . 23 

CLI . 24 

COMPLEMENT .229 

Cosinus-Funktion .207 

CPU . 26 

CPU-Register . 187 

Cursor positionieren . 85 

Cursor um eine Stelle nach links . 76 

Cursor um eine Stelle nach rechts. 76 

Cursor sum Zeilenanfang . 76 

Cursor sum Zeilenende . 76 

Cursor-Position . 79 

Cursor-Spalte .339 

Cursor-Spalte ermitteln. 86 
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Data-Werte auslesen . 165 

Data-Zeiger . 164 

Data-Zeiger setzen . 84, 166, 188 

Datei auf Dateiende prüfen . 102 

Datei auswählen .360 

Datei in Speicherbereich laden . 89 

Datei umbenennen .98, 99 

Datei-Zeiteintrag aktualisieren . 110 

Dateilänge ermitteln . 104 

Dateizugriff. 88, 101 

Daten an Drucker ausgeben. 131 

Daten ausgeben . 79, 84 

Daten byteweise an Peripherie ausgeben . 115 

Daten byteweise von Peripherie lesen . 115 

Daten formatiert ausgeben . 81 

Daten zuweisen . 353 

Daten-Speicher deklarieren . 164 

Datenbus . 27 

Dateneingabe . 74 

Datenfelder . 112 

Datenkanal . 115 

Datenkanal öffnen . 104 

Datenkanal schließen . 101 

Datensatz . 103, 112 

Datensatz in Felder unterteilen . 102 

Datensatz lesen . 103 

Datensatz schreiben . 107 

Datensatzlänge . 107, 112 

Datum einstellen .332 

Debugger . 186 

Default-Button . 359 

Default-Title .384 

Dekrementierung . 198 

Delete . 76 

Descriptor . 309, 355 

Desktop-MenU für Accessories .389 

Dezimalstellen-Funktion . 203 

Dezimalstellen-Zufallszahl .220 

Dezimalsystem .274 

Directory (erweitert) ausgeben . 94 

Directory ausgeben . 93 

Direkte Variablen-Übergabe . 182 

Direktmodus . 64, 325, 327 

Disassembler . 186 

Disjunktion. 197 

Disk-Datei löschen . 95 
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Disk-Station .361 

Diskettenoperationen.361 

Divisionsbefehl.199 

Doppelt bedingte Schleife . 141 

DRAW-Turtle positionieren .248 

Drehpunkt .209 

Dreiecksfl&che .222 

Drop-Down-Mentl .261 

Druckkopfposition ermitteln . 130 

Dummy-Zuweisung .357 

Editor .325 

Einzel-Bit auf an/aus testen .214 

Einzel-Bit löschen .213 

Einsel-Bit setsen . 213 

Einzel-Bit wechseln (Xoren) .213 

Einzelelement aus Feld löschen . 285 

Einzelelement in Feld einfUgen . 293 

Einzelvariablen löschen .329 

Einzelzeichen von Tastatur holen . 72 

Elektronenstrahl . 262 

Elementarfarben .231 

Elemente pro Dimension . 286 

Ellipse(nbogen) zeichnen . 238 

Endlosschleife . 141 

EQV . 37, 197 

EQV-Modus .214 

Error-Handling.337 

Ersatzkriterium . 296 

Eulersche Zahl .202 

Europa-Format .353 

Event-Puffer (Menü- und Fensterverwaltung) .393 

Exclusives Oder . 197 

EXclusivOR-Funktion .219 

Existenz einer Datei prüfen . 94 

Exponentenstellen . 82 

Bxponential-Funktion .202 

Exponential-Format . 47, 283 

Fallentscheidung.158 

Farbbildschirm .258 

Farbregister . 222, 246, 258 

Farbberechnung.258 

Farbeinstellung des Objekts festlegen . 267 

Farbmischung .230 

Fast-RAM . 33 
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Fataler Systemfehler .336 

Fehler simulieren .336 

Fehler-Abfangroutine .327 

Fehler-Code ermitteln .335 

Fehler-Routine .337 

Fehlerart ermitteln .336 

Fehlerindex.335 

Fehlertext liefern . 335 

Feld (-Bereich) Quick-Sortierung .294 

Feld (-Bereich) Shell-Sortierung .298 

Feld mit Wert belegen . 285 

Feld(er) dimensionieren . 286 

Feld(er) löschen . 292 

Feld-Basiselement bestimmen .294 

Felder und Variablen löschen .328 

Fenster auf maximale Größe bringen .372 

Fenster in den Hintergrund .376 

Fenster in den Vordergrund .376 

Fenster öffnen .373 

Fenster schließen .372 

Fenster verschieben .377 

Fensterinhalt löschen .371 

Fenstertitelzeile bestimmen .375 

Fenstergröße bestimmen .377 

Fenstergröße einschränken.378 

Festspeicher . 89 

File-Ende . 102 

File-Pointer . 101 

File-Pointer setzen . 109 

File-Pointer verschieben . 109 

File-Pointer-Position . 100, 103 

Flächen mit Muster füllen .238 

Flags . 44 

Fließkommavariablen . 168 

Fließkommawert — > Integerwert . 279 

Format-String .260 

Format-Zahl => String . 280 

Formatierte String-Eingabe . 71 

Formatzeichen . 83 

Freien Disketten-Speicherplatz ausgeben . 92 

Freien Speicherplatz ermitteln .340 

FUllmuster bestimmen .224 

Füllvorgang .238 

Funktion . 172 

Funktion aufrufen. 172 

Funktion definieren . 170 
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Funktionsaufrufe . 52 

Funktionsname . 170 

Funktionstypen . 170 

Ganzzahl-Funktion . 203, 206 

Ganzzahldivision .197 

Garbage-Collection .341 

Geometrische Figuren .221 

Geschwindigkeit in X-Richtung ermitteln .270 

Geschwindigkeit in Y-Richtung ermitteln .270 

Ghosted . 387, 390 

Globale Deklaration . 166 

Goethescher Farbkreis . 231 

Grad . 210 

Grad-Winkelangabe .209 

Grafikspeicher . 34 

Grafikausgabe begrenzen/Nullpunkt setzen .249 

Grafikmodus .255 

Grafikmodus bestimmen . 228 

GroBbuchstaben . 174, 196, 297 

Größten String ermitteln .210 

Größten Wert ermitteln .210 

Hardware-Farbregister einstellen . 230 

Hauptverzeichnis . 92 

Hexadezimal . SO 

Hexadezimalsystem . 275 

HI- und LO-Word vertauschen .218 

Home .329 

Hüllkurve festlegen . 137 

Identifikator . 89, 100 

IEEE-Doubte/Single-Realformat lesen .301 

IFF-Brushes . 263 

IFF_TO_BOB.GFA .263 

Illegal-Instruction -Exception . 186 

IMP . 37, 197 

IMP-Modus .215 

Implikation . 197 

Implikations-Funktion . 215 

Indirekte Übergabe von Feldern .356 

Indizierte Wiederholungschleife . 142 

Inkrementierung . 199 

Input . 106 

INSTR-Abfragen . 158 

Integer-Additionsfunktion . 200 
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Integer-Division .216 

Integer-Divisionsfunktion . 200 

Integer-Modulofunktion . 201 

Integer-Multiplikation . 215 

Integer-Multiplikationsfunktion . 201 

Integer-Subtraktionsfunktion . 201 

Integeranteil .200 

Integerwert —> Fließkommawert . 278 

Interferenzen . 262 

Interpolierte Cosinus-Funktion mit Grad-Angabe . 208 

Interpolierte Sinus-Funktion mit Grad-Angabe . 210 

Interrupt-Routine freigeben .347 

Interrupt-Routine sperren .347 

Interrupt-Routinenaufruf .345 

INVERSEVID . 229 

JAM1 . 228 

JAM2 .229 

Joystick-Fire-Buttons abfragen .369 

Joystick-Modus .368 

Joystick-Port .367 

Kanal-Nummer. 101 

Kickstart . 34 

Klammerrechnung . 154 

Klammersetzung . 152 

Kleinbuchstaben . 174, 297 

Kleinsten Wert/String ermitteln .211 

Klickpause .331 

Kniffei . 156 

Kollision .269 

Kollisionssart feststellen .271 

Kombinierte Abbruchbedingungen . 143 

Kommentar einfilgen . 165 

Kommentar innerhalb einer Befehlszeile . 163 

Komplement werte .216 

Konjunktion . 197 

Koordinaten-Nullpunkt .249 

Koordinatenpaare . 241, 247 

Kreis(bogen) .237 

Kreiszahl.208 

Laufwerksvorgabe . 98 

Laufzeit ermitteln .333 

Leerzeichen .196 

Leerzeichen ausgeben. 86 
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Leerzeichen-String bilden . 196 

Length Of File . 104 

Lesezeiger . 103, 108 

Lesezugriffe . 106 

Line Feed . 71 

Linie zeichnen .246 

Linien-Modi bestimmen.225 

Liniendicke .226 

Linienfarbe bestimmen .222 

Linienstil .226 

Linienzug . 240, 247 

Linksbündigen Teil-String ermitteln . 191 

Listing-Format festlegen .351 

LOAD . 22 

Location . 103 

Logarithmus .204 

Logarithmus-Funktion .204 

Logische Operatoren . 153, 198 

LOGO-Turtle-Grafik .242 

Lokale Variablen deklarieren .177 

Lokales Swap-Feld .253 

Lower. 174 

Lupe . 234 

MALLOC()-Speicher freigeben .308 

Marker-Attribute .247 

Masch.-Programmaufruf m. Registerzugriff. 187 

Maschinen-Monitor . 186 

Maschinen-Programm aufrufen . 186 

Maschinenroutine . 184 

Maschinenprogramm (assembliert) aufrufen . 184 

Maschinenprogramm (C-kompiliert) aufrufen . 183 

Maus-Port im Joystick-Modus abfragen .368 

Maus-Port-Abfragemodus bestimmen .367 

Maus-Status ermitteln (einzeln) .367 

Maus-Status ermitteln (gesamt) .364 

Mausbild .227 

Mausform bestimmen In V3.0 { DEFM } .227 

Mausmaske .228 

Mauszeiger.364 

Max. Zeilenlänge . 78 

Maximal mögliche String-Länge . 77 

Maximale Eingabezeilenlänge . 171 

Mehrfach-Zeichenkette bilden . 195 

Menge der Feldelemente ermitteln .292 

Menü-Index . 253 
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Menü-Überwachung . 402 

Menüpunkt mit neuem Text versehen .388 

Menüpunkt mit Shortcut versehen . 388 

Menüpunkt-Attribute bestimmen .387 

Menüseile löschen .391 

Menüseilentext .251 

Minus-Identifikator . 48 

Mischwert . 230 

Modulo-Berechnung . 197, 201 

Müll-Sammlung.340 

Multi-Tasking-System . 34 

Multiplikationsbefehl . 199 

Muster-Definitionen .224 

Muster-Rückgabe .225 

Nachkommabereich .352 

Nachkommastellen . 203, 352 

Nächstgrößere Ganssahl ermitteln . 206 

Nächstgrößeres ASCII-Zeichen ermitteln . 196 

Nächstkleinere Ganssahl ermitteln . 204 

Nächstkleineres ASCII-Zeichen ermitteln . 192 

Namensspesifikation . 166 

Negation . 197 

Neigungswinkel . 209 

NEUE NAMEN. 23 

NEWCLI . 24 

Nibble .278 

NOT . 38, 197 

Numerisch => Binär . 273 

Numerisch => Hexadesimal . 279 

Numerisch => Oktal . 281 

Numerisch => String .281 

Objekt beschleunigen . 266 

Objekt entfernen . 263 

Objekt sichtbar machen .264 

Objekt unsichtbar machen . 264 

Objektkollision, versweigen . 271 

Objekt-Animation .262 

Objekt-Aussehen definieren .263 

Objekt-Bewegung anhalten . 265 

Objekt-Bewegung starten . 265 

Objekt-Geschwindigkeit festlegen . 267 

Objekt-Kollision Auswahl treffen . 269 

Objekt-Reihenfolge einstellen . 268 

Objekt-Wirkungsbereich festlegen .264 
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Oktal-String .281 

Oktalsystem .278 

Opcodes . 32 

OR . 36, 197 

OR-Kette .149 

OR-Modus.215 

Ordner erseugen . 97 

Ordner löschen . 99 

Ordner wechseln . 91 

Output.105 

P-Grafikumrandung an/aus .221 

Parallelfeld .296 

Parallelproseß .335 

Pen .243 

Pen-Status .245 

Pfad . 90 

Pfadnamen .361 

Pfadstruktur . 96 

Pfeil-hoch . 76 

Pfeil-links . 76 

Pfeil-rechts . 76 

Pfeil-runter . 76 

Pixel pro Sekunde .266 

Plane-Bits .258 

Plotter-(Turtle-)Attribute liefern .244 

Plotter-(Turtle-)Grafik .242 

Plotter-Simulation .242 

Pointer-Variablen . 182, 310 

Pointer/Feld- SW AP .366 

Polygon seichnen .247 

Polygon seichnen, gefüllt .239 

Polygon-Ecken . 247 

Pop-Up-Menü . 251, 263 

Positionsliste . 190 

Postfix . 167 

Preferences .330 

Priorität . 23, 60, 269 

Procedure-Bestimmung (Tastatur-Event) .403 

Procedure-Bestimmung (Menü-Event) .402 

Programm (nach STOP-Befehl) fortsetsen .325 

Programm beenden . 325, 326 

Programm in Arbeitsspeicher laden . 96 

Programm listen/speichern (ASCII) . 96 

Programm nach Error-Routine fortsetsen .338 

Programm speichern (codiert) . 99 
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Programm speichern (listgeschützt) . 98 

Programm starten .827 

Programm unterbrechen .327 

Programm-Listing .325 

Programm-Listing ausdrucken . 130 

Programmende (Interpreter verlassen) .328 

Programmende (Rückkehr zum CLI oder Workbench) .326 

Programmspeicher löschen .329 

Prozedurtitel . 180 

Prozeduraufruf . 53 

Prozessor . 26 

Pseudo-Sprite . 368 

Pull-Down-Menü .251 

Pull-Down-Menü erstellen .389 

Punkt seichnen . 246 

Punkte verbinden . 240 

Punkte-Kette .240 

Punkte-Speicher . 242 

Punktfarbe . 236 

PUT-Box.237 

PUT-Fläche . 233 

Quadratwurzel . 205 

R-Datei . 111 

Radiant .208 

RAM . 33 

Random . 106 

Random-Access-Datei . 105, 111, 190 

Random-Datei . 102 

Rasterindex .237 

Real-Feldvariable . 341 

Real-Zahlvariable .341 

Rechteck seichnen . 233 

Rechtsbündigen Teil-String ermitteln . 193 

Rechtwinkliges Dreieck . 221 

Referenzliste .349 

Rekursion . 181 

Request-Box.360 

ROM. 34 

Rubberbox .366 

RUcksprunganweisung . 173 

Rückgabevariablen .310 

Rücksprungadresse . 184 

RUN . 23 

RUN-Only-Interpreter . 24 
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Rundung von Ziffern-Ausgaben .352 

Rundungsfunktion .205 

Sats des Pythagoras . 46 

Sats-Pointer für GET#/PUT# setsen . 108 

Satsseiger .108 

Satslänge . 113 

Satsnummer . 103 

SAVE . 22 

Schleife . 54 

Schleifenwendepunkte. 57 

Schnittstellen . 106 

Schrittweite . 142 

Screen in den Hintergrund .383 

Screen in den Vordergrund .383 

Screen öffnen .380 

Screen schließen .382 

Screen verschieben .384 

Screen-Daten holen .385 

Screen-Farben wählen . 386 

Screen-Titel setsen .384 

Shell . 24 

Single-Interrupt-Routine freigeben .344 

Single-Interrupt-Routinenaufruf.342 

Single-Interrupt-Routine sperren .344 

Sinus-Funktion .210 

Sondertasten . 72 

Sonderseichen . 76 

Sortier-Algorithmen .298 

Sortierfeld .295 

Sortierung.295 

Sortiervorgabe .297 

Space . 196 

Space-Zeichen eliminieren . 196 

Spaltenposition .339 

Speicherbereich auf Disk speichern . 90 

Speicherblock kopieren .299 

Speicherblock-Transfer.300 

Speicherinhalt .300 

Speicherinhalt ändern .303 

Speicherinhalt auslesen .303 

Speichermanipulationen.304 

Speicherplats-Ermittlung .341 

Sprite setsen und löschen .259 

Sprite-Daten .260 

Sprite-Form .260 
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Sprungziel . 177 

Stack . 183 

Startup-Sequence .330 

Stellenwertigkeiten .276 

Steuerbus . 27 

Strahlrücklauf.262 

String => Format-Zahl .279 

String => Numerisch .282 

String-/Feld-Descriptoradresse ermitteln .310 

String-Eingabe m. Vorgabe . 72 

String-Feld in Datei ablegen . 110 

String-Feldvariable .341 

String-Länge ermitteln . 192 

String-Liste .210 

String-Variable . 168, 341 

Subdirectorys.361 

Subtraktionsbefehl { SU } . 199 

Suchpfad.88, 94 

Swap-Feld löschen .256 

Switch/Case . 159 

System-Fehler .336 

System-Gadgets .374 

System-Speicher-Reservierung .306 

System-Uhrzeit ermitteln .333 

System-Datum .330 

Tabulator setzen . 87 

Tangens-Funktion .210 

TASKPRI 0 . 23 

TASKPRI 1 . 23 

Tastatur-Überwachung . 403 

Tastaturspeicher . 73 

Tausendertrennung. 82 

Teilstring zuweisen . 189 

Teilstring-Position . 193 

Teildatei lesen . 100 

Teildatei schreiben . 101 

Tetrade . 278 

Text im Grafikmodus ausgeben .240 

Text sprechen . 138 

Textbereich für V3.0-Compiler deklarieren .351 

Textfeldindex .263 

Textverarbeitung. 107 

Textzeichen => ASCII-Wert .273 

Ticks . 342, 346 

Titelzeile .;.361 
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Token-Code. 96 

Ton erseugen . 136 

TOS-Cur»or-Zeile .339 

Total-Absturs .336 

Trace-Modus ausschalten .350 

Trace-Modus in Prosedur lenken .350 

Trennfunktion . 193 

Trennseichen . 193 

Turtle-Kommandos .242 

Turtle-Position. 243 

Turtle-Status .245 

Übergabevariablen .310 

Überlappungen .373 

Uhrseit .332 

Umkreisradius . 209 

Umlaute . 196 

Umwandlung in Grad . 208 

Umwandlung in Radian (Bogenmaß) . 209 

Unbedingter Sprung su einem Label . 176 

Unter-Bedingungsabfrage . 146 

Unterverseichnis .361 

Unterordner . 89 

Unwahr-Konstante .352 

Unwahrheitswert . 153 

Update. 106 

Uppercase . 196 

Utilitys .292 

Variable auf Adresse setsen .298 

Variablen-Pointer .309 

Variablen/Felder/Pointer tauschen .355 

Variableninhalte/Namen ausgeben .348 

Variablentyp ermitteln .341 

Variablenseiger . 50 

VBL-Synchronisation .262 

Vektor . 51 

Vergleichsoperatoren . 58 

Verknüpfungsfunktionen .212 

Verknüpfungsmodi. 36 

Verschachteln . 43 

Vertikal-Blank . 262 

Vertikale Synchronisation . 262 

Versweigung bei Fehler .337 

Versweigung su einer PROCEDURE . 175 

Versweigung sur Ereignisfeststellung . 401 
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Verzweigungskriterien . 161 

Virtuelle Datei . 106 

Virtuelle Druckkopf. 130 

Vorkomma-Anteil. 200 

Vorzeichen ermitteln .205 

Vorzeichenlos. 202, 214 

Vorzeichenloses LO-Word eines Wertes liefern . 214 

Wagenrücklauf . 71 

Wahr-Konstante .354 

Wahrheitswert . 47, 59, 152 

Wert auf 32 Bit erweitern . 219 

Wertepaare . 193 

Wertetabelle . 51 

Window-Daten holen .379 

Wurzel-Funktion . 205 

X-Position bestimmen .265 

X-Position ermitteln .270 

XOR . 37, 197 

XOR-Modus . 68, 219 

Y-Position bestimmen .266 

Y-Position ermitteln .270 

Zahl auf "gerade" testen . 202 

Zahl auf "ungerade" testen . 204 

Zählschleife . 142 

Zeichen links vom Cursor löschen . 76 

Zeichen unter dem Cursor löschen . 76 

Zeichen(kette) in einem String rückwärts suchen . 194 

Zeichen(kette) in einem String suchen . 190 

Zeichen(kette) linksbündig einsetzen . 189 

Zeichen(kette) rechtsbündig einsetzen . 190 

Zeichenketteneingabe . 77 

Zeichenkettenvariable(n) deklarieren . 169 

Zeichenrichtung .248 

Zeichenstifte festlegen.379 

Zeilentrennzeichen . 78 

Zeilenvorschub. 71 

Zeit-Zähler .333 

Zufallswert.220 

Zufallszahlengenerator initialisieren .220 

Zugriffsmodus . 106 

Zweierkomplement . 48 












































Bücher zum Amiga 


Wer bislang mehrere Bücher brauchte, um, effektiv auf sei¬ 
nem Amiga programmieren zu können, findet in diesem Buch 
endlich alles über das Betriebssystem übersichtlich zusam¬ 
mengefaßt. Dabei richtet sich dieses Buch nicht nur an den 
Programmierer, sondern auch an die Einsteiger, die mehr über 
Ihren Amiga erfahren wollen. Wer dann noch häufig mit dem 
Amiga arbeitet, wird nach kurzer Zeit feststellen, daß dieses 
Buch ein unentbehrliches Hilfsmittel ist. 



DATABECKER 




AMIGA 


Aus dem Inhalt: 

- Ein- und Ausgabe über Devices 

- IFF-Format und Kompremierung 

- Alle Amiga-Libraries und Strukturen 

- Das Printer.device unter Kickstart 1.3 

- Basis und Grundstrukturen im System 

- Preferences 

- Druckertreiber 

- Aufbau der Amiga-Fonts 

- Keymaps 

- Eigene Tastaturtreiber über Input.device 


Bleek/Jennrich/Schulz 
Amiga Intern Band 2 
Hardcover, 881 Seiten, DM 69,- 
ISBN 3-89011 -268-4 



DAS STEHT DRIN: 


Endlich gibt es GFA-BASIC für den Amiga. Zu diesem umfangreichen 
BASIC gehört auch ein umfangreiches Buch, in dem jeder Befehl detail¬ 
liert behandelt wird. Dabei liefert es keine nackte Befehlsübersicht, son¬ 
dern wirklich brauchbares Material in Hülle und Fülle. Anhand zahlreicher 
Beispielprogramme lernen Sie dieses leistungsfähige BASIC spielend zu 
beherrschen. 


Aus dem Inhalt: 

• Das Editor-Menü 

• Variablentypen- und Organisation 

• Diskettenoperationen 

• Strukturierte Programmierung 

• Maus- und Menüabfrage in eigenen Programmen 

• Window-Programmierung 

• Abfrage von Ereignissen 

• Programmierung von Pulldown-Menüs mit Unterpunkten 

• Nutzung der ROM-residenten Libraries (Intuition, Exec,...) 


UND GESCHRIEBEN HABEN DIESES BUCH: 

Wolf Gideon Bleek hat seine Programmiererfahrungen schon mit dem 
großen C- Buch unter Beweis gestellt. Uwe Litzkendorf ist erfahrener Pro¬ 
grammierer und arbeitet schon lange mit GFA-BASIC auf dem Atari ST. 
Martin Hecht, der schon das BECKERbasic für den C 64 programmierte, 
zeigt in diesem Buch, daß auch schwer verständliche Themen leichtver¬ 
ständlich darzustellen sind. 






























